' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`hh8 褓 BLOAD "'  ,A$ >fm`@>fm`$RA[LE!3%7 L 5ILLEGAL OPERAND IN ADDRESS FIELD` L L ȱ DA) ɻ 5EPZ > $FF` L LLk LLkL0 : AG`8`&&&&`#ij 쥐`  BLOAD TEMP. @ L| lL ]  BSAVE TEMP.,A$ ,L$HH ` "`LЭLЭ'( u 1 u 2 L 쭀 Э` **END OF PASS ` `@ `󅯩L8e 5NO ENDLȱL);*ʠ L&eheh`I0  eI0`HHH hhh`HHHLhhh`TSTLConvert L/C (MLUP),Y FND3   LLL5LL뭀 ` 2H7 hLh ɰ, fhh` d' { 0`:0`` G [ i LQ ``HHH  fL~) B 2 4 " fƩ/ f b L| Lꥇ fL L fL bhhh`H&H&( )? (`@#05餆`޼άݍ``L麥` G [ iLQ f L` G [ i LQ`Hȱh` G [ i LQ G JLQHH8L! MNELKUP MNTBL MLUP MNTBL+$1 MLUP+$1 FNDM ERR0 ;: DOGETO : GETO CHKAMODE EROR 'ILLEGAL'  LwLuLgL,LBL LrLLfLKLLL[Li鄅H ɓ)I(Lɛ  L H(h)h` IAIA `$TEMS VERSION 2.5G -- 64K L/B@fm BLOAD ,A$ iL BAD FILENAME ` LHH ; hhL;@> BSAVE ,A$ i ,L$ ` ;8 4 4 L H h kɻ e 4`8 k LEpt k Ld ة-Vʩ/V X LAZER SYSTEM'S INTERACTIVE SYMBOLIC ASSEMBLER (C) 1981 LAZER SYSROLASLADREQUORGOBJEPZSTRDCMASCICLENDLSTNLSHEXBYTHBYPAUDFSDCIPAGINVBLKDBYTTLSBCLET.IF.EL.FI= PHSDPH.DAGENNOGUSRENZL#ȱ0M*;L00 H :hL : L#h:L k kL )H hemmEBLTBMIBCCBCSBPLBNEBEQBVSBVCBSBBNMBM1BNZBIZBIMBIPBICBNCBRABTRBFLBRKBKSCLVCLCCLDCLIDEXDEYINXINYNOPPHAPLAPHPPLPRTSRTIRSBRTNSECSEISEDTAXTAYTSXTXATXSTYAADDCPRDCRINRSUBLDDPOPPPDSTDSTPLDRSTOSETADCANDORABITCMPCPXCPYDECEORINCJMPJSRLDALDXLDYSTASTXSTYXORLSRROR ,  `iiL@L@ ,ɠ,ɃL/ R u z`` `H  h` "h , `  z  ;  `ei ;  `H hH h ``BGhh```````HH +eihh` ; `     ᭈ z " L; 8` BAD # ` > ` LEAR? )YLx` H ! OPEN WRITEh,  INS + u zLV  CLOSE ` !  `a)_ L   ` +#e 4L`HH OSTK LxL/L,L=LLuL;LRL>LQ ` pt^! >fm̍م3vua)_ݠ4)_ݱ* WHAT? L=BLLSAIDLANMWF ROEAP L=les` w,L L C(POSN),Y ;:  POSN POSN FLS3 POSN+$01 FLS3 ;: ;: ;: ;: EROR- PRINTS AN ;: ERROR MESSAGE ;: EROR #$5 PSPC  >0 PSPC ; ^0 #'^' PUTC PCIM 0D0D07 '**ERROR:'  2000 ;: STKA OTAI Sh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4PAJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&LdHH hőhŒ "`L,L ` **ERROR AT LINE :  C)ONTINUE OR A)BORT? )AL` 0A PAG3+$A PAG2,Y TSTH SWO8 SWTREG ;: SWO8 H 8h呅h咅 `*$HH hh Э `/$HH hh Э `|HH hhLb&HH h%h%ĩLb^HH hEhELb=,HH hőhŒhLbhLb#ȱ-L 怒 8呅咅L 勒LȱꅑȱLȱ LK8ȱLH "h `hLȱ DA8) XLHh+HH hehe `-H񤓈 5ABS,Y IS NOT ALLOWED.LL? L?L ( (,Lȱ'" (,L kLZȱꅝȱŝȱŝ (Lq`$L< >A[L}*Ld!I%L4'LH"L\ = 5** DAMAGE ** ILLEGAL CHARACTER IN OPERAND`` $pL#򥙅LeeLȱ ?,ȱ# ( L;/ ( L;'" kL; ( ( L;L )LȱL L L 5 L 񤓈 5STY ABS,X NOT ALLOWEDLL?F 2L L?eeL $P L 5ILLEGAL FORWARD REFERENCE.L 5EQU W/O LABELL L lL 5UNMATCHED IF/EL/FI` 5NESTED IF'S NOT ALLOWEDL L $p 5UNDEF SYMBOLL陋 ` lL8eȱɥ ɖ ( (L ɾ# (LԐذȱ ( ( (LL8 aH`H`3CjGG3CWZC(8ȱ D (L ( kL L $PIL $P1eeȱL;*^  :L "L1  ȥL 5DUPLICATE LABELL L陵 L :a^& 5LOCAL LABELS MAY NOT BE EQUATEDL $P L 5UNDEF. SYMBOL/ILLEGAL ADDRESSL陵8) XL+HH hehe `-HH 8h呅h咅 ` "; 5SYMBOL WAS NOT PREVIOUSLY DEFINED IN AN EPZ STATEMENT.`L Ȣ LH ᅒh`ȩ1 0&&L8&&L`L8eH$xAFND SW25 USYM ;: SW25 SADR OUTC SADR+$01 OUTC PRLN P300 ;: SWOP A0D0F0E0B06080C07090 ;: ;: ";: CODES=ADD,CPR,DCR,INR,LDD,POP, ;: PPD,STD,STP,SUB. ;: ;: NORM 0F0 NRM1 0BF ;: NRM1  (PNTR),Y n" #:I$$#x&#`n"#x=#`n"#x(T#!)t ##x}#[ t #!] t #n"#x#!@n"#:I$$|)!P*XPXIPXIPXIPXIPXIL$P!x*#@n"H$x#@n"$̷bx"cn" #x5"_|dDcn" #xA"x"n"̷bXZ"DNcXy"_|dDcn""`(Y" I$! @`,Y" NcY"~I$)t #_|dDcn" Tn" #x#[ t #!] t #_|dDc$ ,Y DXD N# TTx5! @@#!$XJ! D TD#)t #;t #|^!) x!& X}!I$!̷"X!# !2I$!x!!x!  !2I$$|!(@=@M=|%$M$#!*`x #& X!hI # x @|$$| *x6  ^ # $ E \ @^  XH\ @A D _> F@|t ( Y I$| *X ^$ ;X X DN# T# N#Z! (Y I$ @ X ^$ II$$$YW=\$G@=X9G@M=@ @ |,+^* @ Ex  @  ^ t$ ܷ"x  # x |$ #@ x ܷ" @|$ xx |$ x Yx \x "_x .^x :]xFIxRHx^UxjLxvMxPxQxxI$$xpxpxtxqxuxrxvxw$ H LIx2XT\H \H/ @@xGHXDx`XZ]xXs>^I$@x@x|xTx@xDxExFxJxGxXXA_F]HI,L&e$@@X8%D$|I(tt|n)x|xдXT\H \HD@@XM0@^^II$H LIx̰xܰxx^^II$Dx>.=X&+Dx=?Dx'y 'Ys  @ RDx{}XDx(*X*Y)X (Dx%;䍱䮍Ҡ쬠堨ӠԠٍ͠ڭSE wM t٠=|󠱳Ԣ󮍢Ԣ䮍%w t tENTER MP TEXTFILE NAME:w tBLOAD wM t tENTER DESIRED LISA FILENAME:w tOPEN wM tkINSw t0D&?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵BYT1 : ; ; DETERMINE "TEMPLATE" FOR THE ; LAST BYTE. ;  NMSK2,X TMPLT2 ;     ; ; NMSK1 000103070F1F3F7F NMSK2 FFFEFCF8F0E0C080 ; ; ; "; RADAR - DETERMINES IF THERE ARE "; ANY BITS IN THE RANGE SPECIFIED ; AFTER TR THE ; FIRST BYTE ;   NMSK1,X TMPLT1  ; ; CALCULATE # OF BITS FROM 1ST ; BYTE. ;  WIDTH ;  XDIV7,X NBYTS ; ; ; IF ANY BITS OVERFLOW PAST THE !; LAST BYTE INCREMENT THE WIDTH. ; XMOD7,X NBYT1 ; NBYTS ; N 0507 CHARS 0000000000000000 ; ; ; ; COMPUTE # OF BYTES NEEDED ; FOR CURRENT WIDTH ; NUMBYT :    ; BASCAL ; ; ; CALCULATE "BITSET" - IN LINE ; CODE FOR BN2BS. ; BITNUM BITCNV,X  01 ; ; DETERMINE "TEMPLATE" FO; IF AT BOTTOM, TOUGH LUCK! ; SLOOP2 SLOOP SLOOP2 : ; $; IF NOT A BOTTOM, DECREMENT YAXIS. ;  YAXIS 08 YAXIS SLOOP ; ; SYMXIT : INCR SAVA SAVY SAVX (RTN) ; SAVA 00 SAVY 00 SAVX 00 ; CHAR ;  XAXIS 06 XAXIS SYMBL2 ; XAXIS+$1 SYMBL2 : ; &; PROVIDE "WRAP-AROUND" IF NECESSARY. ; XAXIS 11 XAXIS+$1 01 SLOOP3 SLOOP SLOOP3 : ; ; TO MANY COLUMNS HERE. ; 00 XAXIS XAXIS+$1 ; YAXIS 08 ;  00 SYMBL4 : 00 (PNTR),Y INCP 07 ; SYMBL5 :  CHARS,X  SYMBL5 ;  07 SYMBL4 ; 05 WIDTH 07 LENGTH RTN  RTN+$1  ORPIX  CHAR  RTN+$1  RTN ; $; MOVE OVER TO NEXT PRINT POSITION. PNTR+$1   PNTR PNTR  PNTR+$1 PNTR+$1   PNTR PNTR SYMBL1 ; PNTR+$1 SYMBL1 : ; #; CONVERT DISPLACEMENT TO ADDRESS. ;  #CHRTBL PNTR PNTR /CHRTBL PNTR+$1 PNTR+$1 ; ; FIX UP TYPO IN CHRTBL ;0 INCR (RTN),Y SLOOP1 SYMXIT SLOOP1 : ; ; CONVERT TO STRAIGHT ASCII ; 7F ; #; FORM A DISPLACEMENT INTO CHRTBL. ;  20 ; ; MULTIPLY TIMES 7 ; PNTR PNTR+$1 PNTR  PNTR PNTR+$1 PNTR+$1  PNTR  PNTR 0010203040506 ; ; ; OUTPUT CHARACTERS TO THE ; SCREEN ; ; EXAMPLE ; ; JSR SYMBOL ; ASC "HELLO THERE" ; HEX 00 ; ; PRINTS "HELLO THERE" AT XAXIS ; YAXIS. ; SYMBOL : SAVA SAVY SAVX ;  RTN  RTN+$1 ; SLOOP : 0R3 !R1TEST TO SEE IF AT BEGINNING UP1 ; ; R3MOVE PAST RETURN ; ; NOW LOOK FOR THE NEXT RETURN ; WHICH OCCURS EARLIER IN THE ; FILE ; UP2 :  @R3 R4 UP3 R3 R1 UP1 UP2 UP3 : R3 ; ; UP1 : PRTL PRTLN1 ; PRTLN2: R7 PRTCHR  ; ; ; ; ********************* ; * * ; * UP: MOVES THE LINE* ; * POINTER UP ON LINE* ; * * ; ********************* ; ; UP : SW16  R4,$8DINIT R4 WITH RETURN * ; ********************* ; ; PRTLN : R7,$8D ; !; MOVE CURRENT LINE POINTER (R3) ; TO REGISTER 6 ; R3 R6 ; ; NOW OUTPUT TEXT INDIRECT THRU ; REGISTER 6 UNTIL A RETURN IS ; ENCOUNTERED. ; PRTLN1:  @R6 R7 PRTLN2 PRTCHR LN ************* ; ; GETLN $FD6F SW16  ; ; ; ; ********************* ; * * ; * PRTLN:PRINT LINE. * ; * A SWEET-16 SUB- * ; * ROUTINE WHICH WILL* ; * PRINT THE LINE * ; * POINTED AT BY R3. * ; * 00 P300 ;: IXY3 SADR OUTC PRLN P300 ;: IXY1 0BF  INXT,X OUTC  GADR AFND IXY4 USYM 00 OUTC OUTC PRLN ERRR  'UNDEFINED SYMBOL'  00 P300 ;: IXY4 SADR OUTC SADR+$01 OUTC PR0 OUTC PRLN ERRR  'UNDEFINED SYMBOL-'  'MUST BE ZPAGE.'  00 P300 ;: IXY6 #$B6 OUTC  GADR AFND USMZ ; IXY2 EYET IXY3 ;: NOTZ 00 OUTC PRLN ERRR  'ADDRESSING MODE REQU'  'IRES ZPAGE VARIABLE.'   ACCM,X LPTR  ACCM,X LPTR+$01 (LPTR) ;: ACCM ACUM  ADDR  IMMD  INDJ  INDX  INDY  IDXX  IDXY ;: ;: IDXY 0D1 IXY5 #$CE IXY6 IXY1 ;: IXY5 96 OUTC  GADR AFND IXY2 ;: USMZ 0ASC "* *" ; ASC "***" ;BLKADR HEX 0000000000 ; ; ; NOW, JSR PIX ; ADR BLKADR ; ; WILL DRAW: ; ; ... ; . . ; ... ; ; ; NOTE: ANY CHARACTER EXCEPT ; BLANK WILL FORCE THE BIT ON ; BLANK WILL FORCE THE BIT OFF. ; #; HAPE ; TABLE WHICH IS TO BE CREATED. ; ; YOU SHOULD RESERVE AT LEAST ; ([WIDTH/7] + 1) * LENGTH + 2 ; BYTES FOR THE SHAPE TABLE. ; ; EXAMPLE: ; ; JSR SHAPE ; ADR BLOCK ; ADR BLKADR ; ; BLOCK HEX 0303 ; ASC "***" ; I CHARACTERS. ; ; CALLING SEQUENCE: ; ; JSR SHAPE ; ADR SHPCHR ; ADR SHPADR ; ; WHERE "SHPCHR" IS A STRING OF ; ASCII CHARACTERS WHOSE FIRST ; TWO BYTES GIVE THE WIDTH THE ; HEIGTH OF THE SHAPE. "SHPADR" ; IS THE ADDRESS OF THE S ;  XAXIS XINC XAXIS XAXIS+$1 XINC+$1 XAXIS+$1 ; ; DFRY2 :  YAXIS YINC YAXIS ; PLOT ; I DFRY3 I+$1 DFRY3 I ; I I+$1 DFRY1 ;  ; ; ; ; SHAPE - CREATES A SHAPE FROM ; USER INPUT ASCII+$1  ERROR+$1 DELTAY I  ERROR ; DFRY1 :  ERROR DELTAX ERROR ERROR+$1 DELTAX+$1 ERROR+$1 ; ERROR DELTAY ERROR+$1 DELTAY+$1 DFRY2 ; ERROR DELTAY ERROR ERROR+$1 DELTAY+$1 ERROR+$1C+$1 XAXIS+$1 ; COLOR DFRX6 ; ; ERASE A DOT HERE ; ERASE DFRX7 ; ; PLOT A POINT HERE. ; DFRX6 : PLOT ; ; DFRX7 : I DFRX4 I+$1 DFRX4 : I I I+$1 DFRX2 DFRX5 :  ; ; ; DOFORY : DELTAY+$1 OR ERROR+$1 DELTAY+$1 ERROR+$1 ; ERROR DELTAX ERROR+$1 DELTAX+$1 DFRX3 ; ERROR DELTAX ERROR ERROR+$1 DELTAX+$1 ERROR+$1  YAXIS YINC YAXIS ; DFRX3 :  XAXIS XINC XAXIS XAXIS+$1 XINWLN6 ; ; DRWLN5 : DOFORX ; ; DRWLN6 : RSTAXS RSTREG  ; ; ; DOFORX : DELTAX DFRX1 DELTAX+$1 DFRX5 ; DFRX1 : DELTAX+$1 I+$1  ERROR+$1 DELTAX I  ERROR ; DFRX2 :  ERROR DELTAY ERRLTAY+$1 DRWLN3 #$FF YINC YINC+$1  00 DELTAY DELTAY 00 DELTAY+$1 DELTAY+$1 DRWLN4 ; ; DRWLN3 : 01 YINC 00 YINC+$1 ; ; DRWLN4 : DELTAX DELTAY DELTAX+$1 DELTAY+$1 DRWLN5 ; DOFORY DR DESTY YAXIS DELTAY 00 00 DELTAY+$1 ; ; DELTAX+$1 DRWLN1 ; #$FF XINC XINC+$1  00 DELTAX DELTAX 00 DELTAX+$1 DELTAX+$1 DRWLN2 ; ; DRWLN1 : 01 XINC 00 XINC+$1 ; ; DRWLN2 : DER DRWLNE ; ; ; ERSLN - ERASES A LINE INSTEAD ; OF DRAWING IT. ; ERSLN : SAVREG SAVAXS #$FF COLOR ; ; DRWLNE : ; ; COMPUTE DELTAX ;  DESTX XAXIS DELTAX DESTX+$1 XAXIS+$1 DELTAX+$1 ; ; COMPUTE DELTAY ; RX : RSTAXS RSTREG (RTNADR) ; ; YES 40 NO 00 ; ; ; ; DRAWLN - DRAWS A LINE FROM !; (XAXIS,YAXIS) TO (DESTX,DESTY) ; ; AFTER RETURN, ALL AXIS ARE ; RESTORED TO ORIGINAL VALUE. ; DRAWLN : SAVREG SAVAXS 00 COLOPLT2 #$FF 7F (BASE),Y RDR1 ; !; CHECK ALL THE BYTES IN BETWEEN ; FOR DOTS. ; DISP  RDR2 : (BASE),Y RDR1  RANGE RDR2 ; YAXIS YAXIS #$FF RDR1 LENGTH RDR3 NO RADARX ; RDR1 : YES ; RADAR),Y WIDTH  (PNTR),Y LENGTH LENGTH ; ; ; NUMBYT ; ; CHECK FIRST BYTE FOR DOTS. ; RDR3 : BASCAL DISP TMPLT1 #$FF 7F (BASE),Y RDR1 ; ; CHECK LAST BYTE FOR DOTS. ;  NBYTS DISP   RANGE TM; ERED. ; !; STARTING POSITION IS SPECIFIED ; IN (XAXIS,YAXIS). THESE TWO !; VALUES ARE RESTORED UPON EXIT. ; ; RADAR : SAVREG SAVAXS ;  PNTR  PNTR+$1 ;  PNTR 03 RTNADR PNTR+$1 00 RTNADR+$1 ; 01 (PNTHE JSR. ; ; CALLING SEQUENCE: ; ; JSR RADAR ; HEX width ; HEX height ; ; AFTER THE SUBROUTINE RETURNS ; THE OVERFLOW FLAG WILL BE SET ; IF ANY DOTS WERE ENCOUNTERED, ; THE OVERFLOW FLAG WILL BE !; CLEAR IF NO DOTS WERE ENCOUNT- STACK; ;  PNTR  PNTR+$1 ; ; INC PAST LAST BYTE OF JSR ; INSTRUCTION. ; PNTR PIX1 PNTR+$1 ; PIX1 : 00  PNTR 2 RTNADR PNTR+$1 00 RTNADR+$1 ; ; LOAD ADDRESS OF THE FIRST ; BYTE OF BITMAP INTO PNTR. ; IS CODED AS ; ; HEX 0303 (LENGTH & ; WIDTH) ; HEX E0 (1ST ROW) ; HEX E0 (2ND ROW) ; HEX E0 (3RD ROW) ; GETADR :  RTN  RTN+$1 ; ; ; GET ADDRESS OF BIT MAP OFF ; OF THE IVELY. ; IF THE NUMBER OF BITS ; IN A ROW IS NOT AN EVEN ; MULTIPLE OF 8 THE RE- ; MAINING BITS IN THE ; LAST BYTE OF THAT ROW ; ARE IGNORED. ; EXAMPLE: ; ; ... ; ... ; ... ; ; ; THE TWO BYTES FOLLOWING ; THE JSR POINT THE THE ; BIT ARRAY. ; EG; ; JSR PIX ; ADR BITMAP ; ; THE FIRST TWO BYTES OF ; THE BIT ARRAY CONTAIN ; THE WIDTH AND LENGTH ; RESPECT; ERASE - ERASES POINT AT ; (XAXIS,YAXIS) ; ERASE :    ; BASCAL ; DISP BITNUM #$FF (BASE),Y (BASE),Y ;     ; ; ; PIX - DRAWS A PICTURE ON THE ; CRT. PICTURE CONSISTS ; OF A BIT ARRAY.; CLRPG1 - CLEARS PAGE ONE OF ; HIRES GRAPHICS. ; CLRPG1   ; 00 DATA 20 DATA+$1 ; 00 00 ; CLOOP (DATA),Y DATA CLOOP DATA+$1 DATA+$1 40 CXIT 00 CLOOP ; CXIT    ; ; - TURN HIRES ON ; HRGON $C050 $C057 $C052  ; ; ; ; ; ; ; PLOT - PLOTS AN INDIVIDUAL ; POINT. ; PLOT   ; BASCAL ; DISP BITNUM (BASE),Y (BASE),Y     ; ; ; ; ; ; ; ; ; ; ; ; RETURN. ; (PNTR),Y DESTX INCP (PNTR),Y DESTX+$1 INCP (PNTR),Y DESTY INCP ; XYASV XYYSV (PNTR) ; XYASV 00 XYYSV 00 FLAG 00 ; "HIRES.2" PNTR),Y XAXIS+$1 INCP (PNTR),Y YAXIS INCP ; ; TEST FLAG TO SEE IF ROUTINE #; IS SUPPOSED TO GET (DESTX,DESTY) ; FLAG XYEQ2 ; ; NO - RETURN HERE ; XYYSV XYASV (PNTR) ; ; XYEQ2 : ; ; GET (DESTX,DESTY) HERE, THEN ;; #FALSE FLAG XYEQ1 ; ; ; DXYEQ : XYASV #TRUE FLAG ; ; XYEQ1 : XYYSV ; ; GET ADDRESS OF DATA OFF OF ; THE STACK. ;  PNTR  PNTR+$1 ; INCP 00 ; ; GET (XAXIS,YAXIS) ; (PNTR),Y XAXIS INCP (EX 70 ; ; STORES $100 IN XAXIS, $80 IN ; YAXIS, $110 IN DESTX, AND ; $70 IN DESTY. ; ; ; DECLARE BOOLEAN VALUES. ; TRUE $01 FALSE $00 ; ; ; XYEQ XYASV ; ; SET FLAG TO FALSE SIGNIFYING ; THAT DEST(X,Y) IS NOT TO BE ; LOADED. WING !; THE JSR TO (XAXIS,YAXIS) ; AND (DESTX,DESTY) ; ; EXAMPLE: ; ; JSR XY= ; ADR $80 ; HEX 45 ; ; STORES 0080 IN XAXIS & $45 IN ; YAXIS. ; ; JSR DXY= ; ADR $100 ; HEX 80 ; ADR $110 ; H ; INCR : RTN INCR1 RTN+$1 INCR1 :  ; ; ; INCP - INCREMENTS PNTR ; ; INCP : PNTR INCP1 PNTR+$1 INCP1 :  ; ; ; ; XY= : ASSIGNS VALUE FOLLOWING !; THE JSR TO (XAXIS,YAXIS) ; !; DXY=: ASSIGNS VALUES FOLLOP5 BYTCNT SHP2 SHIFTR (RTN),Y INCR SHP1 ; ; SHP5 : BYTCNT SHP8  SHIFTR SHP5 ; ; SHP8 : SHIFTR (RTN),Y INCR LENGTH SHP6 SHP0 ; SHP6 : RSTREG (RTNADR) ; ; ; ; INCR - INCREMENTS RTNWIDTH 00 (RTN),Y INCR LENGTH (RTN),Y INCR ; SHP0 : WIDTH SHP1 : 08 BYTCNT 00 SHIFTR ; SHP2 : (PNTR),Y INCP 7F 20 SHP3 ;  SHIFTR SHP4 ; SHP3 :  SHIFTR ; SHP4 :  SHTHE H.O. BIT OF THESE CHARACTERS "; MAY BE SET OR RESET, IT DOESN'T ; MATTER. ; SHAPE : SAVREG GETADR INCP ; 00 (RTNADR),Y RTN  (RTNADR),Y RTN+$1 ;  RTNADR 02 RTNADR RTNADR+$1 00 RTNADR+$1 ; 00 0 : XORPX3 ; ; END OF PICTURE ; XORPXT : RSTAXS RSTREG (RTNADR) ; ; ; SAVAXS :  YAXIS YAXSV XAXIS XAXSV XAXIS+$1 XAXSV+$1   ; RSTAXS :  YAXSV YAXIS XAXSV XAXIS XAXSV+$1 XAXIS+$1  BITNUM DISP DISP 28 XORPX7 ; DISP 40 BITNUM ; XORPX7 : ;  XORPX8 BYTCNT XORPX5 XORPX4 ; ; GO TO NEW ROW HERE ; XORPX8 : LENGTH XORPXT ; XORPX9 : YAXIS YAXIS #$FF XORP10 YAXIS ; XORP1X4 : 08 BYTCNT PNTR XORP11 PNTR+$1 XORP11 : 00 (PNTR),Y SHIFTR ; XORPX5 : SHIFTR XORPX6 ; ; INVERT A POINT HERE! ; BITNUM DISP (BASE),Y (BASE),Y ; ; MOVE DOT. ; XORPX6 : BITNUM XORPX7 ; 01 ; ANDPXT : RSTAXS RSTREG (RTNADR) ; ; ; ; XORPIX - EOR'S PICTURE ONTO ; SCREEN. EACH DOT IN PICTURE ; CAUSES CORRESPONDING DOT ON ; SCREEN TO BE XOR'D. ; XORPIX : SAVREG SAVAXS GETADR ; XORPX3 : BASCAL WIDTH ; XORP 40 BITNUM ; ; ANDPX7 :  ANDPX8 BYTCNT ANDPX5 ANDPX4 ; ; ; GO TO A NEW ROW HERE ; ANDPX8 : LENGTH ANDPXT ; ANDPX9 : YAXIS YAXIS #$FF ANDP10 YAXIS ; ANDP10 : ANDPX3 ; ; ; END OF PICTURE HERE! DPX5 : SHIFTR ANDPX6 ; ; ERASE A POINT HERE! ; BITNUM #$FF DISP (BASE),Y (BASE),Y ; ANDPX6 : ; ; MOVE DOT CURSOR ONE POSITION ; TO THE RIGHT ; BITNUM ANDPX7 ; 01 BITNUM DISP DISP 28 ANDPX7 ; DISPWN ; BY ORPIX / PIX. ; ; ANDPIX : SAVREG SAVAXS ; GETADR ; ; CALCULATE PIX ADDRESS. ; ANDPX3 : BASCAL WIDTH ; ANDPX4 : 08 BYTCNT PNTR ANDP11 PNTR+$1 ; ANDP11 : ; 00 (PNTR),Y SHIFTR ; ; AN SEE IF ; PICTURE IS COMPLETE. ; ORPIX8 : LENGTH ORPXIT ; ORPIX9 : YAXIS YAXIS #$FF ORPX10 YAXIS ; ORPX10 : ORPIX3 ; ; END OF PICTURE! ; ORPXIT : RSTAXS RSTREG (RTNADR) ; ; ; ; ANDPIX - ERASES PICTURE DRACURSOR RIGHT HERE. ; ORPIX6 : BITNUM ORPIX7 ; 01 BITNUM DISP DISP 28 ORPIX7 ; DISP 40 BITNUM ; ; ORPIX7 : ; ; SEE IF AT END OF CURRENT ROW. ;  ORPIX8 BYTCNT ORPIX5 ORPIX4 ; ; GO TO NEW ROW HERE,DR ; ; ORPIX3 : BASCAL WIDTH ; ORPIX4 : 08 BYTCNT PNTR ORPX11 PNTR+$1 ORPX11 : 00 (PNTR),Y SHIFTR ; ORPIX5 : SHIFTR ORPIX6 ; ; PLOT A POINT HERE! ; BITNUM DISP (BASE),Y (BASE),Y ; ; MOVE DOT ND OF PIX HERE! ; PIXIT : RSTAXS RSTREG (RTNADR) ; ASAVE 00 YSAVE 00 XSAVE 00 XAXSV 00 XAXSVH 00 YAXSV 00 ; ; ; ORPIX- "OR'S" PICTURE ONTO ; SCREEN W/O ERASING. ; ORPIX : SAVREG SAVAXS GETAAT. ; PIX7 :  PIX8 BYTCNT PIX5 PIX4 ; ; ; GO TO A NEW ROW HERE. ; CHECK TO SEE IF PICTURE IS ; COMPLETE. ; PIX8 : LENGTH PIXIT ; ; PIX9 : YAXIS YAXIS #$FF PIX10 YAXIS ; PIX10 : PIX3 ; ; ; EE! ; PIX6 : BITNUM #$FF DISP (BASE),Y (BASE),Y ; ; MOVE DOT CURSOR RT. HERE. ; BITNUM PIX7 ; 01 BITNUM DISP DISP 28 PIX7 ; DISP 40 BITNUM ; ; ; CHECK TO SEE IF AT END OF ; CURRENT ROW, THEN REPEFTR PIX6 ; ; PLOT A POINT HERE! ; BITNUM DISP (BASE),Y (BASE),Y ; ; MOVE DOT CURSOR ONE PLACE TO ; THE RIGHT. ; BITNUM PIX7 01 BITNUM DISP DISP 28 PIX7 ; DISP 40 BITNUM PIX7 ; ; ERASE A POINT HERIX : SAVREG SAVAXS ; GETADR ; ; GET ADDRESS ON SCREEN WHERE ; PICTURE IS SUPPOSED TO GO. ; PIX3 : BASCAL WIDTH ; PIX4 : 08 BYTCNT PNTR PIX11 PNTR+$1 PIX11 : 00 (PNTR),Y SHIFTR ; PIX5 : SHI (PNTR),Y SHIFTR  (PNTR),Y PNTR+$1 SHIFTR PNTR ; ; ; GET WIDTH. ; 00 (PNTR),Y WIDTH PNTR PIX2 PNTR+$1 ; ; GET LENGTH. ; PIX2 : 00 (PNTR),Y LENGTH ; ; RTN+$1  RTN   ; ; ; ; ; PTHE DISASSEMBLY BEGIN. ; ; ; ; FIRST, GO THRU THE CODE TO BE ; DISASSEMBLED AND GET ALL THE ; ADDRESS REFERENCES. ; DONE : STARTLOC PC STARTLOC+1 PC+1 #0 PASS1 ; ; !; TURN THE DISK OPERATING SYSTEM ; ON. ; DISKINIT #$ TEMP+1 ; ; INPUT-1,Y #"H" PARSE #"N" PARSE #"W" PARSE #"L" PARSE #"S" PARSE #"P" PARSE #"I" PARSE #"O" PARSE #"V" PARSE #CR DONE BADCMD ; ; "; OK, THE COMMAND IS A VALID ONE. ; LET  PARSE ; PARS1 #"," PARS2  PARSE ; PARS2 : #"I" PARS2.0  PARSE ; PARS2.0 : #CR DONE GETNUM A2 TEMP A2+1 TEMP+1 BADCMD ENDRANGE A2 ENDRANGE+1 A2+1 BADCMD ; A2 TEMP A2+13XIT : GETLN STARTLOC TEMP STARTLOC+1 TEMP+1 #0 ; ; ; CHECK THE INPUT LINE TO ; MAKE SURE THE ADDRESSES ARE ; IN THE CORRECT ORDER AND ; THAT THE DISASSEMBLY COMMAND ; IS SYNTACTICALLY CORRECT. ; PARSE BLKDEL #"." PARS1  TEMP #BELL COUT #0 ; PRTBAD INPUT,Y COUT  TEMP PRTBAD PRTBAD ; ; ; ; !; NORMAL GET-COMMAND ENTRY POINT ; GETCMD : #0 MSG3LOOPMSG3,X MSG3XIT COUT  MSG3LOOP ; MSG3 8D  "CMD"  00 ; MSGY RANGE. ; A2 STARTLOC BGNRANGE A2+1 STARTLOC+1 BGNRANGE+1 BADSTART ; ENDRANGE STARTLOC ENDRANGE+1 STARTLOC+1 BADSTART GETCMD ; ; ; ; ; ; READ THE DISASSEMBLY COMMAND ; FROM THE KEYBOARD. ; ; BADCMD : RT: #0 MSG2LOOPMSG2,X MSG2XIT COUT  MSG2LOOP ; MSG2 8D  "ENTER STARTING ADDRESS"  00 ; ; MSG2XIT : ; GETLN #$0 BLKDEL GETNUM ; ; !; CHECK STARTING ADDRESS TO MAKE ; SURE THAT IT FALLS WITHIN THE ; DISASSEMBLA2 BGNRANGE A2+1 BGNRANGE+1 ;  INPUT,Y #"." BADRANGE ;  GETNUM A2 ENDRANGE BGNRANGE A2+1 ENDRANGE+1 BGNRANGE+1 BADRANGE GETSTART ; ; ; GET STARTING ADDRESS ; ; BADSTART#BELL COUT ; GETSTAGE#BELL COUT ; ; GETRANGE: #":" PROMPT #$0 MSG1LOOPMSG1,X MSG1XIT COUT  MSG1LOOP ; MSG1 8D  "ENTER RANGE OF DISASSEMBLY"  00 ; ; ; INPUT DISASSEMBLY RANGE ; MSG1XIT : ; GETLN #0 BLKDEL ; GETNUM HICH READS IN ; THE DISASSEMBLY RANGE. ; PLEASE FORGIVE ME FOR THE ; SIMPLY (AND BULKY) I/O BEING #; PERFORMED HERE, I WANTED TO MAKE ; THE DISASSEMBLY OF DISASM/65 ; AS EASY AS POSSIBLE FOR THOSE ; PERSONS NOT PURCHASING THE ; SOURCE. ; ; BADRAN; START OF DISASM/65 ; ; ; START : #ARRAY TEMP /ARRAY TEMP+1 #0 ; ; ; CLEAR THE SYMBOL TABLE ; CLRLOOP #0 (TEMP),Y  CLRLOOP TEMP+1 TEMP+1 /ENDARY CLRLOOP CLRLOOP GETRANGE ; ; ; !; SECTION OF CODE W 3D3935312D292521  3C3834302C282420  3C3834302C282420  B37332F2B2723  3F3B37332F2B2723  3E3A36322E2A2622  3E3A36322E2A2622  3D3935312D292521  3D3935312D292521  3C3834302C282420  3C3834302C282420  3F3B37332F2B2723  3F3B37332F2B2723  3E3A36322E2A2622  3E3A36322E2A2622  3D3935312D292521  8080808080808080  0000000000000000  8080808080808080  0000000000000000 ; YHIBYT 3F3B37332F2B2723  3F3B37332F2B2723  3E3A36322E2A2622  3E3A36322E2A2622  3D3935312D292521  3D3935312D292521  3C3834302C282420  3C3834302C282420  3F350505050505050  A8A8A8A8A8A8A8A8  2828282828282828  A8A8A8A8A8A8A8A8  2828282828282828  A8A8A8A8A8A8A8A8  2828282828282828  A8A8A8A8A8A8A8A8  2828282828282828  8080808080808080  0000000000000000  8080808080808080  0000000000000000  ; SAVREG : ASAVE XSAVE YSAVE  ; ; RSTREG : ASAVE XSAVE YSAVE  ; YLOBYT :  D0D0D0D0D0D0D0D0  5050505050505050  D0D0D0D0D0D0D0D0  5050505050505050  D0D0D0D0D0D0D0D0  5050505050505050  D0D0D0D0D0D0D0D0  50BLTST0 PCAUX PC PCAUX+1 PC+1 LBLTST1 ; PC TEMP  PC+1  PCAUX PC PCAUX+1 PC+1 ; CHKTBL LBLTST #CR COUT #"L" COUT PCAUX+1 PRBYTE PCAUX PRBYTE PRTEQU #"*" COUT #"-" COUT    ; PRTINST0PC PCAUX  PC+1 PCAUX+1  ; TSTLBL #CR COUT INSDS1 INSTDSP PCADJ PC PC+1 ;  PCAUX+1  PCAUX PC  PC+1  ; LBLTST PC+1  PC PCAUX LBLTST0 PCAUX+1 ; L+1 PC+1 PRTPSH0 ; ;     ; ; ; ; ; ; ; HANDLE THE "EQU" STATEMENT ; PRTEQU   #0 ; PRTEQU0 EQU,X PRTEQU1 COUT  PRTEQU0 ; EQU " EQU "  00 ; PRTEQU1    ; ; ; ; PRTINST : CHKTBL DOPHSBYT PRTADR #"-" COUT #"1" COUT NXTPSH ; DOPHSBYTPRTBYT #"-" COUT #"1" COUT TSTLBL PRTHBY #"-" COUT #"1" COUT ; NXTPSH PC PRTPSH2 PC+1 ; PRTPSH2 : ; STOPVAL PC STOPVAL#"V" PASS2.11 GETVAR  PAS2.0 ; ; PASS2.11: ; ; ; ; ; ; PAS2DONE: #0 CLSD CLOSE,X CLSD0 COUT  CLSD ; CLOSE 8D84 "CLOSE"  8D00 ; CLSD0 :  ; ; ; ; ; ; "DISASM.2" ;  PAS2.0 ; PAS2.5 #"L" PAS2.6 PRTINST  PAS2.0 ; PAS2.6 #"P" PAS2.8 PRTPUSH  PAS2.0 ; PAS2.8 : #"I" PASS2.9 GETIGNOR  PAS2.0 ; PASS2.9 : #"O" PASS2.10 GETORG  PAS2.0 ; ; PASS2.10: WRITE,X MSG9.0 COUT  MSG9 ; WRITE 8D84  "WRITE DISASSEMBLY"  00 ; MSG9.0 : INPUT-1,Y #"H" PAS2.3 PRTHEX  PAS2.0 ; PAS2.3 #"S" PAS2.4 PRTASCII  PAS2.0 ; PAS2.4 #"W" PAS2.5 PRTADRS PAS2DONE ; GETNUM A2 STOPVAL A2+1 STOPVAL+1 ; ; ; TEST FOR IGNOR MODE ; INPUT,Y #"I" NOIGNOR ; ; TURN OFF WRITE DISK MODE ; #CR COUT #CTRLD COUT MSG9.0 ; ; TURN ON WRITE DISK MODE ; NOIGNOR : #0 MSG9INT OUT THE REQUIRED EQUATES ; EQU_EPZ ; ; "; HANDLE THE DISASSEMBLY COMMANDS ; PAS2.0 BLKDEL #"." PASS2.1  PAS2.0 ; PASS2.1 #"," PASS2.02  PAS2.0 ; PASS2.02#"I" PASS2.2  PAS2.0 ; ; PASS2.2 #CR *+5 : ; ; ; OPEN THE FILE "DISASSEMBLY" ; #0 MSG4LOOPMSG4,X MSG4XIT COUT  MSG4LOOP ; MSG4 8D84  "MON O,I,C"  8D84  "OPEN DISASSEMBLY"  8D84  "WRITE DISASSEMBLY"  8D  "INS"  8D  ";"  00 ; ; MSG4XIT : ; !; PR PASS1 ; PASS1.9 : #"O" PASS1.10 GETORG  PASS1 ; PASS1.10: #"V" PASS1.11 GETHEX  PASS1 ; ; PASS1.11: ; ; ; ; PAS1DONE:  ; ; ; ; PASS2- ACTUALLY WRITES THE "; DISASSEMBLED CODES OUT TO DISK. ; ; PASS2 PASS1.3 #"W" PASS1.5 GETADRS  PASS1 ; PASS1.5 #"L" PASS1.6 LIST  PASS1 ; PASS1.6 #"S" PASS1.7 GETHEX  PASS1 ; PASS1.7 #"P" PASS1.8 GETPUSH  PASS1 ; PASS1.8 : #"I" PASS1.9 GETIGNOR : ; #CR PAS1DONE ; ; !; ITS NOT A DELIMITER, THEREFORE ; IT MUST BE AN ADDRESS. ; GETNUM A2 STOPVAL A2+1 STOPVAL+1 ; ; SEE WHAT TYPE OF DISASSEMBLY ; COMMAND IT IS. ; INPUT-1,Y #"H" PASS1.3 GETHEX  PASS1 ; S1 ENTERS ALL ADDRESS ; REFERENCES INTO THE DISASM/65 ; SYMBOL TABLE. ; ; ; PASS1 : ; ; DELETE LEADING SPACES AND ; REMOVE ANY DELIMITERS. ; BLKDEL #"." PASS1.1  PASS1 ; PASS1.1 : ; #"," PASS1.2  PASS1 ; PASS1.2 E MONITOR OR BASIC WORKS ; OUT OK. ; #0 FILLCR #CR $200,X  FILLCR ; ; APLMONTR ; ; ; ; ; #; BLKDEL- "DELETES" LEADING SPACES ; FROM THE INPUT BUFFER. ; BLKDEL BLKDLOOP INPUT,Y #" " BLKDLOOP  ; ; ; ; PAS80 $D9 $75 ; ; ; LET PASS TWO BEGIN. ; DURING THIS PASS, THE DIS- ; ASSEMBLED CODE IS WRITTEN TO ; THE DISK. ; STARTLOC PC STARTLOC+1 PC+1 #0 PASS2 ; ; !; KLUDGY WAY TO FIX UP THE INPUT ; BUFFER SO THAT THE RETURN TO ; THUEPZ0 ; EQUXIT      ; ; ; ; PRTEPZ :    ; #0 PRTEPZ0 EPZ,X PRTEPZ1 COUT  PRTEPZ0 ; EPZ " EPZ "  00 ; PRTEPZ1    ; ; GETLN :    ; GTLINE #0 ; GETLN0 $20QUEPZ7 : SEARCH STOPPOSN SEARCH+1 STOPPOSN+1 *+5 EQUEPZ0 ; SEARCH #ENDARY SEARCH+1 /ENDARY EQUXIT ; SEARCH ENDSRCH SEARCH+1 ENDSRCH+1 *+5 EQUEPZ0 ; ; ENDSRCH SEARCH ENDSRCH+1 SEARCH+1 EQTMPSRCH PRBYTE PRTEPZ EQUEPZ6 ; EQUEPZ5 TMPSRCH+1 PRBYTE TMPSRCH PRBYTE PRTEQU ; ; EQUEPZ6 : #"$" COUT TMPSRCH+1 PRBYTE TMPSRCH PRBYTE   EQUEPZ2 ; ; EQUEPZ1 : SEARCH EQUEPZ7 SEARCH+1 ; ET,X (SEARCH),Y  SEARCH #ARRAY TMPSRCH SEARCH+1 /ARRAY TMPSRCH+1        TMPSRCH TMPSRCH+1  TMPSRCH TMPSRCH+1  TMPSRCH TMPSRCH+1 ; #CR COUT #"L" COUT TMPSRCH+1 EQUEPZ5 RAY+1 ENDSRCH ENDSRCH+1 /ARRAY+1 ENDSRCH+1 ; ; ; ; ; #ARRAY SEARCH /ARRAY SEARCH+1 #0 EQUEPZ0 : (SEARCH),Y *+5 EQUEPZ1 ; #7 EQUEPZ2 EQUEPZ3  EQUEPZ2 EQUEPZ1 ; EQUEPZ3 (SEARCH),Y BITSETOPPOSN STOPPOSN+1 STOPPOSN  STOPPOSN #ARRAY STOPPOSN STOPPOSN+1 /ARRAY STOPPOSN+1 ; ENDRANGE ENDSRCH ENDRANGE+1 ENDSRCH+1 ENDSRCH+1 ENDSRCH ENDSRCH+1 ENDSRCH ENDSRCH+1 ENDSRCH  ENDSRCH #AR; MSG8.0 : PC+1 PRBYTE PC PRBYTE #CR COUT #";" COUT ;       ; ; ; ; ; ; ; EQU_EPZ :      ; BGNRANGE STOPPOSN BGNRANGE+1 STOPPOSN+1 STOPPOSN+1 STOPPOSN STOPPOSN+1 SVAL #1 PC STOPVAL+1 #0 PC+1 ; ;       ; ; GETORG :      ; STOPVAL PC STOPVAL+1 PC+1 ; #0 MSG8 ORG,X MSG8.0 COUT  MSG8 ; ORG 8D  ";"  8D " ORG $"  00 .0    ; ; ; ; ; GETIGNOR:      ;  STOPVAL PC  STOPVAL+1 PC+1  GETIGN0  #1 ; GETIGN0     PRTDFS  PRBYTE  PRBYTE ; #CR COUT #";" COUT ;  STOPDR ;  PC #2 PC GETPUSH1 PC+1 ; GETPUSH1STOPVAL PC STOPVAL+1 PC+1 GETPUSH0 ;     ; ; ; PRTDFS :    #0 MSG7 DFS,X MSG7.0 COUT  MSG7 ; DFS 8D " DFS $"  00 ; MSG7PC+1 ; GETADRS1STOPVAL PC STOPVAL+1 PC+1 GETADRS0 ;     ; ; ; ; ; ; GETPUSH :    ; GETPUSH0: #1 (PC),Y SYMADRS+1  (PC),Y SYMADRS SYMADRS GETPUSH2 SYMADRS+1 ; GETPUSH2: STOREAGETHEX : ; PC GETHEX1 PC+1 ; GETHEX1 STOPVAL PC STOPVAL+1 PC+1 GETHEX ;  ; ; ; GETADRS :    ; ; GETADRS0: #0 (PC),Y SYMADRS  (PC),Y SYMADRS+1 STOREADR ;  PC #2 PC GETADRS1      ; ; ; ; ; ; LIST : ;    ; LIST0 : PC PCAUX PC+1 PCAUX+1 INSDS1 SETFMT INSTDSP PCADJ PC PC+1 ; #CR COUT STOPVAL PC STOPVAL+1 PC+1 LIST0 ;     ;   ; CHKTBL TBLCLC ; ; ; CLEAR BIT IN TABLE ; (SYMADRS),Y BITSET,X (SYMADRS),Y ; ; PRINT THE LABEL ; #CR COUT #"L" COUT PC+1 PRBYTE PC PRBYTE #":" COUT        ; TBLCLC ADRS PC+1 SYMADRS+1 #3 TSTLBL0 SYMADRS+1 SYMADRS   TSTLBL0 ;       #0  SYMADRS #ARRAY SYMADRS SYMADRS+1 /ARRAY SYMADRS+1 ; BITSET,X (SYMADRS),Y ;  ; ; ; TSTLBL :   #"$" COUT  TEMP PCAUX PRBYTE LBLTST ; LBLTST1 STOPVAL PC STOPVAL+1 PC+1 *+5 PRTINST0 ;     ; ; ; ; ; ; ; ; CHECK CURRENT ADDRESS TO #; SEE IF A LABEL IS REQUIRED HERE. ; ; CHKTBL : PC SYMeeLo t$P Lo 5wILLEGAL FORWARD REFERENCE.Lo 5wEQU W/O LABELLo rLo lrLo 5wUNMATCHED IF/EL/FI` 5wNESTED IF'S NOT ALLOWEDL` rLo t$p 5wUNDEF SYMBOLLo r` lrL`8eȱɥ l ɖ (w (wLo ɾ# (wLoԐذȱ t (w (w (wLoLs8 aqH`qH`3tCrqroqoqqjmooqGtGtoqqooqq3toooCrrWrZrCrs(s8soosoooȱ Dm (wLq (w ktLo mLp k$PILo k$P1eeȱLq;*^ l :Lq "wLp1  kȥLo 5wDUPLICATE LABELLo Lo lLo :a^& 5wLOCAL LABELS MAY NOT BE EQUATEDLo k$P lLo 5wUNDEF. SYMBOL/ILLEGAL ADDRESSLo8) XmLn+HH nhehe `-HH n8h呅h咅 ` "w; 5wSYMBOL WAS NOT PREVIOUSLY DEFINED IN AN EPZ STATEMENT.`L oȢ hLoH hᅒh`ȩ1 0&&Lo8&&Lo`Lp8eSEUDO OPCODE ; DOPSEUD : PSEUDOP CONVERT ;   TNT BLKDEL OPRND3 #";" COUT #" " COUT OPRND2 ; OPRND4 : INCP OPRND2 ; ALLDONE : OPRND3 #$8D COUT INCP CONVERT ; ; ; ; ; HANDLE COMMENTS ; COMMENT #";" COUT INCP OPRND2 ; ; ; DOPSEUD- HANDLE PUT INCP (PNTR),Y OPRND1 ; OPRND0 #'/' OPRND1 COUT INCP (PNTR),Y ; OPRND1 #'-' OPRND2 #"!" COUT #"-" COUT INCP ; OPRND2 (PNTR),Y OPRND3 COUT ; #' ' OPRND4 DIDCMNT OPRND4 #1 DIDCMM0 INCP ; MNEM0 INCP (PNTR),YTEST FOR ACC MODE ALLDONE #' ' MNEM3 #";" COUT #" " COUT #1 DIDCMNT BLKDEL MNEM4 ; MNEM3 #0 DIDCMNT ; MNEM4 : ; ; HANDLE OPERAND FIELD HERE ; #'#' OPRND0 COCOUT (PNTR),Y #'.'CHECK FOR PSEUDO OP CNVRT5 DOPSEUD ; ; CNVRT5 : COUT INCP (PNTR),Y COUT INCP (PNTR),Y *+5 ALLDONE ; ; COUT #' ' MNEM0 INCP (PNTR),Y *+5 ALLDONE ; ; COUT #' ' MNE00 #0 PUTC PRINT  8D84 "CLOSE"  8D00 $E000 ; ; CNVRT0 : (PNTR),Y #'*'COMMENT? CNVRT3 COMMENT ; ; CNVRT3 : GETLBLHANDLE LABEL #0 CNVRT2 #":" COUT #$8D COUT INCP CONVERT ; CNVRT2 #" " ">" PROMPT PRINT  8D84  "OPEN SC-CONVERTED"  8D84  "WRITE SC-CONVERTED"  8D  "INS"  8D00 ; ; CONVERT : #0 INCP3 ; ; ; SEE IF WE ARE DONE YET ; PNTR ENDPGM PNTR+1 ENDPGM+1 CNVRT0 ; ; QUIT ; PRINT 858D LABEL (IF THERE) ; AND PRINTS IT. ; GETLBL : #0 LBLOOP (PNTR),Y LBLXIT #' ' LBLXIT COUT INCP LBLOOP ; LBLXIT BLKDEL  ; ; ; ; ; ; ; ; ; START : ; ; #":" PROMPT DISKINIT LOAD #$80 $D9 #PAG3 ; PRINT  8D84 "LOAD "  00 ; #0 LOAD1 PAG3,X COUT #$8D LOAD2  LOAD1 ; LOAD2 $CABASIC POINTER PNTR $CB PNTR+1 $4CBASIC END OF PROGRAM ENDPGM $4D ENDPGM+1 ;  ; ; ; ; ; GETLBL- GETSANKS ; BLKDEL : #0 (PNTR),Y #' ' BLKXIT INCP BLKDEL ; BLKXIT ; ; ; LOAD- LOADS AN SCASMII FILE ; LOAD : PRINT  8D  "ENTER SC ASM II FILENAME:"  00 ; GETLN LOAD0 INPUT,X PAG3,X  LOAD0 INPUT ; NXTCHR ; ; GETNUM #0 A2 A2+1 ; NXTCHR INPUT,Y  #$B0 #$A DIG #$88 #$FA DIG  ; ;  ; INPUT $100 ;  $100+*&$FF00 ; ; ; ARRAY $2000 ENDARY *   0,X INPUT,X  GETLN0 ; #0 GETLN1 INPUT,X #CR GETLN2  GETLN1 GETLN3 ; GETLN2 #CR INPUT,X  GETLN2 ; GETLN3 :     ; ; ; ; DIG #3     ; NXTBIT A2 A2+1  NXTBIT ` $P L[xLz L[x_ȱ"' 8, L[x# $P LI/ $P LI $P LI  L[x  ) L[x - h p h ***** END OF ASSEMBLY ` kƚƙ`Lhh kLpx6  kLET W/O LABELL[x k 悠ȥ L[xC.L L[x kUNMATCHED IF/EL/FIL[x ؁ݩL[x kNESTED IF'S NOT ALLOWEDL` L[x $p Lz  ؁`8eH hȱx+ȱꅝȱŝ L ą L[x8ȱ * &ɻ"A) ȱA) L2 L[x, kFLOATING POINT NOT YET IMPLIMENTEDL[x  L[x L[x2مvu x h ȱꅝȱŝ hLπ h h L[xHHH h $pLz, ƻƺL eeee L[x $pLz L[x L[xȥ쥚  Lȩ 8 L[x4ȩ 8IƜƛI L[x? 8 L[x?@ 8 L[$pLz , L[x $pLz , L[x:ȱ"' 8, $pLz , L[x  ą L[x L[x kPAUSE ENCOUNTEREDL[x" $pLz L[x_ $pLz,-L}q1QQ k$pLazLz L[xh L k$pLz L[x LA}H $phLz'h8鿪} LL}m- ,MMNn.h8鿪} L[xe%$EEFf&" $pLz , L[x" * h8鿪| ȱ#/, k$pLz L[x k$pLz L[x' ȱ L[x"ȱ L[xȱ L[xA)Lg|i) IIl h k$pLz L[xh8鿪| L}a!AAh8鿪} p" kUNDEFINED SYMBOLL[x L[xy9YYh" k$pLazLz L[x8H 悥9$phLzh{ L[x}=]]^~>$phLazh{ L[xu5UUVv6h8Ԫ{ L[xJjk$pLz L[x`pHȱ 8z8zl{7}{|||I{Hzh>Lz k$pA kUNDEFINED SYMBOL-MUST BE ZPAGE.L[x k$PȥK 7 kADDRESSING MODE REQUIRES ZPAGE VARIABLE.L[x L[x8鿪0{ k$ kUNDEFINED SYMBOLL[x8噅嚅ƚƙ&( kBRANCH OUT OF RANGEL[x0 L[x0pP ɼ+8鲪zHȱ@ȱA8)h L[xɾ.ɽȱ@ HLy@HLyȱ@0HLyȩPHLyȱA8)  #0 LxLLQLLLL멀vم􅢅(򅡠 Lpx 8e륙ȱ0;*^ ȱ)_ ؐL}ɲ LyLzɖLx8閪x L[x XʈHh(`@ 8x8逪ny k$p LdvHH thőhŒ "w`Lu,L ` x h **ERROR AT LINE h: h h h h h h h C)ONTINUE OR A)BORT? h)AL``EQUIRED. ; ****** PUTTTL : PRTTTL PUTTL1  ; PUTTL1  H t8h呅h咅 `*$HH thh  `/$HH thh  `|HH thhLbv&HH th%h%ĩLbv^HH thEhELbv=,HH thőhŒhLbvhLbv#ȱ-Lu o 8呅咅Lu oLuȱꅑȱLuȱ LKu8ȱLuH "wh `hLuȱ DmA8) XmLuHh+HH thehe `-Hq 5wABS,Y IS NOT ALLOWED.LoL?q tL?qL q t (w (w,Loȱ'" t (w,Lo ktLZtȱꅝȱŝȱŝ (wLqt`$Lu< >A[L}u*Ldu!I%L4u'LHu"L\u h= 5w** DAMAGE ** ILLEGAL CHARACTER IN OPERAND`` k$pL#rLoeeLoȱ ?,ȱ# (w kL;s/ (w kL;s'" ktL;s (w (w kL;sLo )LoȱL qL qL q5 tL q 5wSTY ABS,X NOT ALLOWEDLoL?qF t2L qL?HH#8hh` ,()+-;*/|^&=# HHHJ eeffff㥨hhh`HHH&&&8呪咐樈㥨hhh` `ȹ ` a)ߝ Fȱ"MEDIATE HEX DATAhhL8`ȹ # MILLEGAL IMMEDIATE ASCII DATALL  8`h`rsHr͊h8`Ӄ 'ȹ  MNOT ENOUGH DIGITS.hhL   MILLEGAL HEX DIGIT.hhL8`'" MILLEGAL STRINGhhhhLv vȹv , 8`0:a {)ߙAG`8`A[ a{)8``ȹ ȹ ȹ ' # MILLEGAL IM`  `8` ;,)#=^|&/*+-LLN 8` ,ȹ `8`` ,ȹLQ'" ۹,Ld NLt8``# / '" ,ވ  ` NLhh MILLEGAL OPERAND TYPELLy, - hU`>H5Hy`*$<>!%'";z莎yȹ / MLABEL TOO LONG`yLȹ `Lȹ hL-Ȣȹ h`ȹI0)2`ȹ ȹ'Lȹ ȹ"Ly8`ȹ N OPERAND FIELDL `L ` 82 JE1hh MMUST USE ",X)", "),Y", OR ")"L)ө)ߙYéȹ  `8` `,)`Lȹ)ߙX$Y+hh MONLY "X" OR "Y" ALLOWEDLLGAL SWEET-16 OPERANDLL, ȹ Rǭɾ.ȹ "hh MILLEGAL SWEET-16 REGISTERLLȩ L<ȹ,` L ;L8` `L Ҍ h (LLѐH݌H`#/("'*$!%<>hh MILLEGAL SYMBOL I-HH`PW''W****TTTcPT8*T**P*'''TTT-T׏L L( MEQU/EPZ MUST HAVE A LABELhhL LU L( MLABEL NOT ALLOWED HERE` !;hh MOPERAND NOT ALLOWEDL8` R%@)hh MILLE`;* + MILLEGAL BLANK IN OPERAND FIELDhLh u   t Ltxtr9 r  xt8`xrirsLt` `u抐8`HH`Կ䵘8تN LABELL h؍ :ʠ, :"  =Х :К : L ` ).%= MILLEGAL MNEMONIC.LL`r`s { Ɗ MILLEGAL OPERAND.L L MILLEGAL ADDRESSING MODE.LH L LL2LjLL9i( MMEMORY FULL`8e` h h^ h h **ERROR: h h h h h`,` ,` Q h8``  ` h;*^A  ULs` Ȍ ` MBAD CHARACTER IGDVALU GDVL0 NOFILL !DFSDON ;PSP4 APSP7 QPSP6 _PSP8 iPSP9 COPT PS10L PS10L1 PS10L2 PS10M PS10N PS10P PS10Q PS10R PS10S #PS10 ,PS12 2PS14 FPS15 WPS13 bPS11 hPS11 h U ɻ hL: h ɻ hL: h ɮ hL+ ɍ h h h h h`HHH$`) %`&`$`) xhhh` h h hhhhhhh` x`LLh` DOEQU PSP3LL PSP3 PSP5 PSP4L PSP5L kSYM TABLE FULLL`ȥȩ`H |hi쥵퐯8Ƶȱ)_i_ȥȥL(쥕i L`HH | ȥȩhh` ``H h LISA 2.5 h hĢ h L h ` h p`HH0;*  ` ` hhh` k `LUHH ` h `hh`0 : AG`8`쥕^:&#L( kDUPLICATE LABELL(i LŴ嵐暤梤`ꅝȱŝȱŝ`ꅝȱŝȱŝ" % L=`,0`ɠ,Ƀ,L`,`櫥` ą`` \ -} ` hĢ h h h섘 h pi9Ģ3 - `GHT #CNTRLO UP #CNTRLX CANCEL ; PUTC  NXTCHR ; ; CANCEL : '/ PUTC CRLF BELL NEWLN ; ; UP : UP.. NXTCHR ; ; RIGHT : CUCURS PUTC NXTCHR ; LEFT : DOBS NXTCHR ; DOWN : DOLFEWLN : #$1 ; BCKSPC :  ; NXTCHR : RDKY 08 NOTBS #$0 NXTCHR PUTC BCKSPC ; NOTBS : #CNTRLU ADDINP CUCURS #$7F ; ADDINP : INPUT,X 0D CR ; ; #CNTRLJ LEFT #CNTRLL DOWN #CNTRLK RI #TRUE SHIFTL  ;: ;: ;:****************** ;: ;: ;: ;: RDLN READS A LINE ;: FROM KYBRD AND ;: PUTS THE RESULTING ;: LINE IN PAGE 2. ;: THE LINE IS DELIM- ;: ITED BY THE RETN ;: CHARACTER. ;: ;: RDLN :      ; NV2  ;: ;:****************** ;: ;: INIT PREPARES THE ;: VARS USED BY LZR ;: IOS. ;:-----------------: ;: THIS ROUTINE : ;: MUST BE CALLED : ;: BEFORE ANY LIOS : ;: ROUTINES ARE : ;: USED. : ;:-----------------: ;: ;: INITNED) ;: ADDRESS FOLLOWS ;: JSR. ;: PINT SAVR STKA INCA SSTK DECA LAIA LAIA CVHD RSTR ;: ;: ;: ;:***************** ;: ;: PUTC- PRINTS ;: ASCII CHARACTER ;: IN ACC. IF PRCC ;: PUTC : ASV2 #$80 COUT ASO. NYBBLE OF ;: ACC TO ITS ASCII ;: EQUIVALENT. ;: ;: ;: SHR4 MSHFT 30  ;: ;:***************** ;: ; TSTD : #'9'+1 TSTD1 #'0'  ; TSTD1  ; ; ; ; ; ;****************** ; ;: ;: PINT-PRT INTEGER ;: (UNSIG ; ; PINT3 DIGIT #$0 PINT5 #ZERO PINT4 LEAD0 ; PINT4 LEAD0 PINT6 PINT5 PUTC PINT6 PINT1     ; ; T10L 010A64E810 T10H 0000000327 ; ;:****************** ;: SHR4 CONVERTS THE ;: H.STR ;: ;:***************** ;: ;: ;: HEX TO DECIMAL ;: CONVERSION ; CVHD :    ; 4 LEAD0 PINT1 : #ZERO DIGIT ; PINT2 :  ADDR T10L,X  ADDR+$1 T10H,X PINT3 ; ADDR+$1  ADDR DIGIT PINT2HE JSR ;: PCIN SAVR STKA INCA SSTK DECA LAIA LAIA OTAI RSTR ;: ;:****************** ;: ;: ;:****************** ;: ;: PSPC-PRINT SPACES ;: ACC CONTAINS # OF ;: SPACES TO PRINT ;: ;: PSPC SAVR  PRBL2 RDR  ;: ;:****************** ;: ;: ;: ;: LAIA-LOAD ADDR ;: INDIRECT THRU ;: ADDR. ;: LAIA 00 (ADDR),Y   (ADDR),Y ADDR+$01  ADDR  ;: ;:****************** ;: ;: PCIN PRINT CHARS ;: INDIRECT, BYTE ;: FOLLOWING TI 0 IFCNT P300 ; IFERR3 ERRR  'UNMATCHED IF/EL/FI'  00 P300 ; P3EL PRLN DELIF IFCNT IFERR3 #0 IFCNT P300 ; P3IF : IFCNT GOODIF ERRR  'NESTED IF''S NOT ALLOWED'  00 WARMST ; GOODIF : TSTIF `ȱvȱHHŴ嵐fv 8㥶ȱřȱ嚰,深셹셸Lȱřȱ嚰L셒셑Lqhhh8`Lehhh` L[ PAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLIFERR3 # hBSAVE ASM.CODE,A$6000,L$36B0,D2 eзL`H>L<Lꕱ ;+7-3,/)+ɻ'*#/|&^=# H H쥕4#Lϕ8셑ȱ셒Li Lhhh`L'`('`(`ȱv)ȱHHŴ嵐?v 8ȥ _ L&_ݠ셑ȱ셒hhh8`hhh`nӠЩɍ00K0100 00 hFOUND AT LINE # h heзL`H><LI@I@ ADDR AND ;: THE SOURCE AND ;: DESTINATION ;: BLOCKS OV BDDR+1 MOVL2 ; MOVL3 (ADDR),Y (CDDR),Y  MOVL3 ; ADDR+1 CDDR+1 MOVL1 ; MOVL2 (ADDR),Y (CDDR),Y CDDR MOVL4 CDDR+1 ; MOVL4 ADDR MOVL5 ADDR+1 ; MOVL5 BDDR ADDR BDDR+1 ADDR+1 MOV MOVL-MOVE LEFT ;: MOVE MEMORY BLOCK ;: ADDR.BDDR TO ;: CDDR.(CDDR + (BDDR ;: - ADDR)) ;: ;: USE IF NO OVERLAP ;: OF DESTINATION AND ;: SOURCE BLOCKS, OR ;: IF CDDR <= ADDR ;: ;: ;: MOVL     ; #0 MOVL1 ADDR+1 UND ;: NO CHECK FOR OVER- ;: FLOW IS MADE. ;: CVDH 00 ADDR ADDR+$01 ; CVD1 PAG2,Y #'0' #10 CVDX ML10  ADDR ADDR CVD2 ADDR+$01 CVD2 CVD1 ;: CVDX #'0'  ;: ;: ;:****************** ;: ;:  ADDR+$01 ADDR+$01   ;: ;: ;:****************** ;: ;: CVDH CONVERTS A ;: DECIMAL # TO BIN- ;: ARY. THE Y-REG. ;: POINTS TO THE ;: ASCII REP. OF THE ;: DECIMAL # IN PAGE ;: 2. THIS ROUTINE ;: CONVERTS UNTIL A ;: NON-DIGIT IS FO NXTCHR ; CR : CELN CRLF       ; ;: ;: ;:****************** ;: ;: ML10 MULTIPLIES ;: ADDR BY 10 ;: ML10 ADDR ADDR+$01 ADDR+$01  ADDR ADDR ADDR+$01 ADDR ADDR+$01  ADDR ADDR (4);"BRUN LISA V2.5",Lz{|ߦ X0 Ǡpd Le L|LĠͮŮİĠͮŮİ L`ӠĠͮŬLz{|ߦ X0 Ǡpd Le L|LĠͮŮİĠͮŮİ L`ӠĠͮŬ;: ;: ;: FLSH-TRANSFERS ;: PAGE 3 TO TEXT- ;: FILE. ;: FLSH PAG3 POSN CSAVE   POSN+$1 #2  CSAVE+$1 FLS1 ; EROR  'MEMORY FULL'  00 05 PAG2  ; ; FLS1 PAG3,Y (POSN),Y  FLS1 ;: PAG3 INIT+$3 PUTC PSPC+$3 PINT PUTC+$3 PCIA PINT+$3 OTAI PCIA+$3 STKA OTAI+$3 SSTK STKA+$3 ;: ; SETVID $FE95 SETKBD $FE8B DSK $A851 ;: ;: ; ; ; ; ; ; ; GETLT MLTPLY DIVSN FIND SLUP '(ȱv)ȱHHŴ嵐?v 8ȥ L&ܽݠ셑ȱ셒hhh8`hhh`n6880 ;  ; ; PCIM RDLN+$3 MOVR PCIM+$3 MOVL MOVR+$3 TSTD MOVL+$3 CVDH TSTD+$3 INIT CVDH+$3 PSPC FOUND AT LINE # eзL`H><L۱I@I@H5Hy`*$<>!%'";z֢yȹ ؙ ڐ/ MLABEL TOO LONG`yL֢ȹ ؐ`Lȹ Lֹ-Ȣȹ `ȹI0)2`ȹ ȹ'Lȹ ȹ"L֥y8`ȹ N OPERAND FIELDLЩ ְ`L ְ` ؙ82 JE1hh MMUST USE ",X)", "),Y", OR ")"Lй)ө)ߙYéȹ  `8` ְ`,)`Lȹ)ߙX$Y+hh MONLY "X" OR "Y" ALLOWEDLЙLՙGAL SWEET-16 OPERANDLЩL,ԩ ȹ Rǭɾ.ȹ ذ"hh MILLEGAL SWEET-16 REGISTERLLȩ ذL<ȹ,` ֈLչ ;Lԩ8` ְ`Lչ   ؐ(LLHH`#/("'*$!%<>hh MILLEGAL SYMBOL I-HH`PW''W****TTTcPT8*T**P*'''TTT-TLӭ L(נ MEQU/EPZ MUST HAVE A LABELhhLЭ LUӭ L( MLABEL NOT ALLOWED HERE` !;hh MOPERAND NOT ALLOWEDLЩ8` R%@)hh MILLE;* + MILLEGAL BLANK IN OPERAND FIELDhLЩh u   t LЄtxtr9 r  xt8`xrirsLҤt` uҐ8`HH`Կ䵘8تN LABELLЍ ؍ :ʠ, :"  ڰ=Х :К : L  ذ).%= MILLEGAL MNEMONIC.LЩLѭrs {Ґ Ұ MILLEGAL OPERAND.L Lٰ MILLEGAL ADDRESSING MODE.LИH 0LL2LjLL9۬i( MMEMORY FULL`8e`  ^ **ERROR: `, , Q 8``   ;*^A  ذULs` Ȍ ` MBAD CHARACTER I                U ɻ Lީ: ɻ Lީ: ɮ L+ ɍ 詍 h`HHH$) %&$) hhh` hhhhhh` `LLDL[" SYM TABLE FULLLȥȩ`H |hi쥵퐯8Ƶȱ)iȥȥL(ݠ쥕i L`HH |ݥ ȥȩhh` `H LISA 2.5 Ģ L۩ ` p`HH0;*  hh` 륒 ॑LUܥHH  hh`0 : AG`8`쥕^:&#L( DUPLICATE LABELL(i LܠŴ嵐暤梤`ꅝȱŝȱŝ`ꅝȱŝȱŝ" % L=`,0`ɠ,Ƀ,L,`櫥 ݩ`` \ -ܠ} Ģ 섘 pi9Ģ3 -ܹ ` $P L[L L[_ȱ"' 8۱, L[# $P LI/ $P LI $P ڥ LI  L[  ) L[ -ܩ p ***** END OF ASSEMBLY ` 륙ƚƙ`Lބhh Lp6  LET W/O LABELL[Р ڠȥ L[C.L ۥL[ UNMATCHED IF/EL/FIL[ ٥ݩL[Х NESTED IF'S NOT ALLOWEDL L[ $p L ۥ `8eH hȱ+ȱꅝȱŝ L L[8ȱ * &ɻ"A) ȱA) L2 L[, FLOATING POINT NOT YET IMPLIMENTEDL[  L[ L[2مvu  ȱꅝȱŝ Lة L[HHH h $pLҥ, ڄƻƺL eeee L[ $pLҥ L[ L[ȥ쥚  Lȩ 8 L[4ȩ 8ۤIƜƛI L[? 8 L[?@ 8 L[$pLҥ ڥ ڱ, L[ $pLҥ ڱ, L[:ȱ"' 8۱, $pLҥ ڱ, L[  L[ L[ PAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLұ,-Lq1QQ $pLaҥLҥ L[h L $pLҥ ڥ L[ LAH $phLҥ'h8鿪 LLm- ,MMNn.h8鿪 ڥ L[e%$EEFf&" $pLҥ ڥ ڱ, L[" * h8鿪 ȱ#/, $pLҥ L[ $pLҥ L[' ȱ L["ȱ L[Щȱ ܰ L[A)Lgi) IIl h $pLҥ ڥ L[h8鿪 La!AAh8鿪 p" UNDEFINED SYMBOLL[Х ڥ L[y9YYh" $pLaҥLҥ L[8H ڥ9$phLh ڥ ڥ L[}=]]^~>$phLah ڥ L[u5UUVv6h8Ԫ L[Jj$pLҥ ڥ L[Р`pHȱ 8҅8҅l7ӪIHh>Lҩ $pA UNDEFINED SYMBOL-MUST BE ZPAGE.L[Є $PȥK ڥ7 ADDRESSING MODE REQUIRES ZPAGE VARIABLE.L[Х L[Ф8鿪0 $ UNDEFINED SYMBOLL[8噅嚅ƚƙ&( BRANCH OUT OF RANGEL[Х0 L[а0pP ɼ+8鲪Hȱ@ȱA8)h L[ɾ.ɽȱ@ HLѩ@HLȱ@0HLȩPHLȱA8)  LLLQLLLLݩ멀vم􅢅(򅡠 Lp ۠8e륙ȱ0;*^ ȱ) ؐLɲ LLɖL8閪 L[ XʈHh(`@ 8x8逪n $p      g(X1(t@<Y+Dg'X>lg*XN@<YdD|k(tWRITE wM t|XtNOMON O,I,C w t٠=T>** MICROPRODUCTS TO LISA CONVERSION**PZ $wEQU $w$@R < >= > <= ORANDNOTSHLSHRINCDECCPYICHOCHINMONMIHXOHXIFPOFi0i6  ` ȱ & -       i0 F `0`AND ARRAY BEGIN CALL CASE CONST DIV DO DOWNTO ELSE END FILE FOR FUNC IF INTEGER MEM &402ee&#0!e0 5 L,  OL  L ` >L  ? L t L  ` Lu{vC ʊ ei(i ei(i 8 ` &&  F ȥ8 ȥ L ` p) L ɔə݅ )`rb 5 0/G+:/A7&& ,  OLbL  5 - = 0>::/&8ʐ eȱeP + ` )?% L` D L ȱ  I E` + & + ee + إȥ L ` IF +  &&&8ȑ` Piȑ`ʰ ) L &ȥ`FJ( J' ȥ H %%`)ȑ` F2L F(L {  {  { 0  { 0 L i` ? iȑ` ?  &8ȥ` <ȑ`=  `  `ȱL 8ȥ0` {  X Xȑ` { ]_0 \]֥ ^_ʥ T8IIi𵐳`8e8 L ȥ`JJJJ  ) +ȱ &8`&8`` ? L ȱL ? &8L ? L ȥ` ? P P P P /wm W W W W P P P P P P P P P  P P P L ) ȱ 86iiȥȥȥȥ` Lee8ȱȱȱ`&8#LL,L1LCLL,0 ؠʆ ȄL $ 00 )ȱȱP 8e J)ȹ LwL iP P #  7 b (                  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  0506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506 04040400040404 ; "}"  06080810080806 ; "~"  0000100A050000 ; ""  0000000E0E0E00 ; ; ; ; XMOD7 :  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  00010203040506  0001020304000A1602020200 ; "s"  001E010E100E00 ; "t"  041F0404040800 ; "u"  00121212121C00 ; "v"  0011110A0A0400 ; "w"  00111111150A00 ; "x"  00110A040A1100 ; "y"  001111111E101E ; "z"  001F0804021F00 ; "{"  0C02020102020C ; "|" 0101010F111100 ; "i"  04000404040E00 ; "j"  08000808080A04 ; "k"  00090503050900 ; "l"  06040404040E00 ; "m"  000A1515151500 ; "n"  000D1311111100 ; "o"  000C1212120C00 ; "p"  000F11110F0101 ; "q"  000E09090E0818 ; "r"  0 040E1504040404 ; "_"  0000000000001F ; "`"  01020400000000 ; "a"  000E080E091E00 ; "b"  0202020E120F00 ; "c"  00001E01011E00 ; "d"  0808080E091E00 ; "e"  000E110F010E00 ; "f"  0412020F020200 ; "g"  000E11111E100E ; "h"   1F040404040400 ; "U"  11111111110E00 ; "V"  111111111A0400 ; "W"  111111151B1100 ; "X"  110A040A111100 ; "Y"  11110A04040400 ; "Z"  1F080402011F00 ; "["  07010101010107 ; "\"  01010204081010 ; "]"  1C10101010101C ; "^" 1F00 ; "J"  10101010110E00 ; "K"  11090705091100 ; "L"  01010101011F00 ; "M  111B1511111100 ; "N"  11131519111100 ; "O"  0E111111110E00 ; "P"  0F11110F010100 ; "Q"  0E111115091600 ; "R"  0F11110F091100  1F011F10101F00 ; "T" 100C040004 ; "@"  0E111D0D05011E ; "A"  040A111F111100 ; "B  0F110F11110F00 ; "C"  0E110101110E00 ; "D"  0F111111110F00 ; "E"  1F010701011F00 ; "F"  1F010701010100 ; "G"  0F11011D111E00 ; "H"  11111F1F111100 ; "I"  1F04040404 1F010F10100F00 ; "6"  0E01010F110E00 ; "7"  1F100804020100 ; "8"  0E110E11110E00 ; "9"  1E111E10100E00 ; ":"  00060600060600 ; ";"  00060600060402 ; "<"  08040201020408 ; "="  00001F001F0000 ; ">"  02040810080402 ; "?"  0E11+"  0004041F040400 ; ","  00000000060402 ; "-"  0000001F000000 ; "."  00000000000606 ; "/"  10100804020101 ; "0"  040A11110A0400 ; "1"  04060404040E00 ; "2"  0E11100C061F00 ; "3"  0E11100C110E00 ; "4"  0109091F080800 ; "5" 0 ; "!"  04040404040004 ; """  0A0A0A00000000 ; "#"  0A0A1F0A1F0A0A ; "$"  041E050E140F04 ; "%"  00130B041A1900 ; "&"  02050502150F16 ; "'"  04040400000000 ; "("  04020101010204 ; ")"  04081010100804 ; "*"  04150E040E1504 ; " * "; ****************************** ; ;  $1000 PLOT ERASE BASCAL DRAWLN SHAPE RADAR CLRPG1 HRGON PIX ORPIX ANDPIX XORPIX ERSLN SYMBOL DXYEQ XYEQ ; ; CHRTBL :  0000000000000 * "; * * "; * AUTHOR: RANDY HYDE * "; * APPLE II COMPUTER * "; * JULY 1979 * "; * * "; * NOTE: THIS TEXTFILE CHAINS * "; * IN THE FILE "HIRES.2"* "; * 0 ; ; "; ****************************** "; * * "; * RANDY'S HIRES ROUTINES * "; * * "; * (C) 1979 BY: * "; * LAZER SYSTEMS * "; * ALL RIGHTS RELEASED.                TS BITNUM ; TO BITSET, VALUE IS ; RETURNED IN BITSET. ; BITSET IS THE NUMBER ; OF THE PARTICULAR ; BIT WHICH IS SET. ; BN2BS :    BITNUM BITCNV,X BITSET     ; ; ; ; ; HRGONSV1 XSV1 YSV1  ; ; !; ** HERE X-C00RDINATE >= 256 ** ; ; DETERMINE BITNUM. ; BSCL2 XCORD2,X BITNUM ; ; "CALCULATE" XAXIS / 7 ; XDV72,X DISP ; ASV1 YSV1 XSV1  ; ; ; ; BN2BS - BITNUM TO BITSET ; CONVER* CALCULATE DISPLACEMENT ** ; YAXIS YLOBYT,X BASE YHIBYT,X BASE+$1 ; XAXIS XAXIS+$1 BSCL2 ; ; ** HERE X-COORDINATE <256 ** ; ; DETERMINE BITNUM ; XCOORD,X BITNUM ; ; "CALCULATE" XAXIS / 7 ; XDIV7,X DISP ; A A "1" IN THE ; BIT POSITION CORRES- ; PONDING WITH THE BIT !; TO BE SET. ALL OTHER !; BIT POSITIONS CONTAIN ; "0". ; ; !; ** CALCULATE BASE ADDRESS ** ; BASCAL : ; ASV1 YSV1 XSV1 ; ; ; *; XAXIS-CONTIANS X-COORDINATE OF ; POINT DESIRED. !; YAXIS-CONTIANS Y-COORDINATE OF ; POINT DESIRED. ; !; BASE -TWO BYTE BASE ADDRESS IS ; RETURNED HERE. !; DISP -ONE BYTE DISPLACEMENT IS ; RETURNED HERE ; !; BITNUM - CONTAINS292929 ; ; BITCNV 0001020003 0000000400 0000000000 0005000000 0000000000 0000000000 0000060000 0000000000 0000000000 0000000000 0000000000 0000000000 0000000700 ; !; BASCAL- HIRES BASE CALCULATION ; ROUTINE. ; !1C1C  1D1D1D1D1D1D1D  1E1E1E1E1E1E1E  1F1F1F1F1F1F1F ;  20202020202020  21212121212121  22222222222222  23232323232323  24242424242424 ; XDV72 242424  25252525252525  26262626262626  27272727272727  28282828282828  29292929E0E0E  0F0F0F0F0F0F0F ;  10101010101010  11111111111111  12121212121212  13131313131313  14141414141414  15151515151515  16161616161616  17171717171717  18181818181818  19191919191919  1A1A1A1A1A1A1A  1B1B1B1B1B1B1B  1C1C1C1C1C000000000  01010101010101  02020202020202  03030303030303  04040404040404  05050505050505  06060606060606  07070707070707  08080808080808  09090909090909  0A0A0A0A0A0A0A  0B0B0B0B0B0B0B  0C0C0C0C0C0C0C  0D0D0D0D0D0D0D  0E0E0E0E0 01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040 01020408 ; XCORD2 102040  01020408102040  01020408102040  01020408102040  01020408102040 ; ; ; XDIV7 000000  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040 COORD 01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  0102040810204+$1 TMPLT1 RANGE+$1 TMPLT2 TMPLT1+$1 NBYTS TMPLT2+$1 DELTAX NBYTS+$1 DELTAY DELTAX+$2 I DELTAY+$2 XINC I+$2 YINC XINC+$2 ERROR YINC+$2 DESTX ERROR+$2 DESTY DESTX+$2 RTN DESTY+$2 ; ; ; ; XBITCNT DATA+$2 TEMPW BITCNT+$1 TEMPX TEMPW+$1 SHIFTR TEMPX+$1 PNTR SHIFTR+$1 BYTCNT PNTR+$2 LENGTH BYTCNT+$1 RTNADR LENGTH+$1 ASV1 RTNADR+$2 YSV1 ASV1+$1 XSV1 YSV1+$1 BITSET XSV1+$1 RANGE BITSET<* YAXIS $80 XAXIS YAXIS+$1 BASE XAXIS+$2 DISP BASE+$2 BITNUM DISP+$1 FROM BITNUM+$1 TO FROM+$2 AT TO+$2 COLOR AT+$2 HLEN COLOR+$1 WIDTH HLEN+$2 HEIGHT WIDTH+$1 DATA HEIGHT+$1                   STLOOP ;        #ARRAY SYMADRS SYMADRS /ARRAY SYMADRS+1 SYMADRS+1 BITSET,Y #0 (SYMADRS),Y (SYMADRS),Y ; STFMTXIT:     ; ; ; BITSET 0102040810204080 ; ; ; ; ; ; ; ; ; ; SYMBOL TABLE IS ARRANGED AS ; AN ARRAY OF 65536 BITS ; (8K BYTES). IF A BIT IS SET #; THEN THAT ADDRESS WAS REFERENCED "; IN THE CODE BEING DISASSEMBLED. ; ; STOREADR   ; ; STADDRS : #0 #3 ; STLOOP : SYMADRS+1 SYMADRS  SYMADRS FIXREL0 SYMADRS+1 ; FIXREL0 SYMADRS STADDRS SYMADRS+1 STADDRS ; ; ABSLADR #1 (PCAUX),Y SYMADRS  (PCAUX),Y SYMADRS+1 STADDRS ; ; ; ; ; ; ; ; DISASM/65 SYMBOL TABLE ; MAINTENENCE ROUTINES ; ; ; NG HERE ; #1  (PCAUX),Y RELNEG ; PCAUX SYMADRS PCAUX+1 #0 SYMADRS+1 FIXREL ; ZPAGEADR#1 (PCAUX),Y SYMADRS #0 SYMADRS+1 STADDRS ; RELNEG PCAUX SYMADRS #$FF PCAUX+1 SYMADRS+1 ; FIXREL : R 8286924A NUMABS *-ABSADR+1 ; ; ; SETFMT :    ; FORMAT #NUMZPG ; ZPLOOP ZPGADR,Y ZPAGEADR  ZPLOOP ; #NUMABS ABSLOOP ABSADR,Y ABSLADR  ABSLOOP ; #$9DRELATIVE STFMTXIT ; ; RELATIVE ADDRESSI      ; ; ; PCADJ PCADJ2 LENGTH PCADJ3 PC+1  PCADJ4  ; PCADJ4 PC RTS2  RTS2 ; ; CHAR1 ",),#(L" CHAR2 "Y"  $0  "X$L"  $0 ; ; ZPGADR 8185914D59 NUMZPG *-ZPGADR+1 ; ABSAD PRNTAX PRBYTE PRNTX PRBYTE ; PRBLNK #3 PRBL2 #" " PRBL3 COUT  PRBL2  ; ; ; HEXOPCD :      ; #0 PRTHX3 HEX+1,X PRTHX4 COUT  PRTHX3 ; PRTHX4 : #0 (PC),Y PRBYTE ; R5 ; PRADR2 FORMAT PRADR3 CHAR1-1,X COUT CHAR2-1,X PRADR3 COUT ; PRADR3 PRADR1  ; ; PRADR4 PRADR2 PRBYTE ; PRADR5 FORMAT #$E8 (PC),Y PRADR4 ; RELADR PCADJ3   PRNTYX  ; PRNTYX #3  MNEML,Y LMNEM MNEMR,Y RMNEM ; PRMN1 #0 #5 ; PRMN2 RMNEM LMNEM   PRMN2 #0 PRMN3 HEXOPCD ; PRMN3 :  #"?" COUT  PRMN1 ; PRMN4 : PRBLNK LENGTH #6 ; PRADR1 #3 PRAD#$8F   #3 #$8A MNNDX3 ; MNNDX1 MNNDX3  ; MNNDX2 #$20  MNNDX2  ; MNNDX3 MNNDX1  ; ; ; SCRN2 RTMSKZ     RTMSKZ #$F  ; ; ; ; ; INSTDSP : ; #" " COUT INSDS1 PPLE MONITOR DISASSEMBLY ; ROUTINES. ; INSDS1 #0 (PC,X) ; INSDS2  IEVEN  ERR #$A2 ERR #$87 ; IEVEN  FMT1,X SCRN2 GETFMT ; ERR #$80 #$0 ; GETFMT FMT2,X FORMAT #3 LENGTH  E $FD6A FMT1 $F962 FMT2 $F9A6 MNEML $F9C0 MNEMR $FA00 APLMONTR $FF59 ; ; ; ; #; DOS 3.2 (3.3) INITIALIZE ROUTINE ; (ALSO $3EA) ; DISKINIT $A851 ; ; ; ; ; ; THE FOLLOWING ROUTINES ARE ; MODIFIED VERSIONS OF THE ; ASEARCH+2 ENDSRCH TMPSRCH+2 A2 ENDSRCH+2 BYTCNT A2+2 PCPLUS1 BYTCNT+2 ; ; ; ; ; MONITOR ZERO PAGE EQUATES ; PROMPT $33 ; ; ; ; ; ; ; MONITOR CALLS AND EQUATES ; ; PRYX2 $FD96 PRBYTE $FDDA COUT $FDED GTLIN1 LMNEM LENGTH+1 RMNEM LMNEM+1 SYMADRS RMNEM+1 TEMP SYMADRS+2 PCAUX TEMP+2 BGNRANGE PCAUX+2 ENDRANGE BGNRANGE+2 STOPVAL ENDRANGE+2 MODE STOPVAL+2 STARTLOC MODE+2 STOPPOSN STARTLOC+2 SEARCH STOPPOSN+2 TMPSRCH %  $6800  $800 " "LISA DISASSEMBLER VERSION 1.0" START ; ; ; ; CONSTANTS USED BY DISASM/65 ; BELL $87 CR $8D CTRLD $84 ; ; ; ; "; ZERO PAGE EQUATES FOR DISASM/65 ; PC $80 FORMAT PC+2 LENGTH FORMAT+                    ; ; ; ; ; HANDLE "ADR LBL-1" TYPE ; REFERENCES. ; ; PRTPUSH :    ; PRTPSH0 : #0  (PC),Y #1 PCPLUS1  (PC),Y #0 PCPLUS1+1 ; PC PCAUX PC+1 PCAUX+1 ; TSTLBL PC PRTPSH1 PC+1 ; PRTPSH1 PC PRTADRS1 PC+1 ; PRTADRS1CHKTBL DOBYTS ; PRTADR NXTADRS ; DOBYTS PRTBYT ; TSTLBL PRTHBY ; NXTADRS PC PRTADRS3 PC+1 ; PRTADRS3STOPVAL PC STOPVAL+1 PC+1 PRTADRS0 ;       ; ; NTADR  ; ; ; PRINTADR: #"L" COUT PCPLUS1+1 PRBYTE PCPLUS1 PRBYTE  ; ; ; PRTADRS : ;      ; PRTADRS0: PC PCAUX PC+1 PCAUX+1 #0 (PC),Y PCPLUS1  (PC),Y PCPLUS1+1 ; ; TSTLBL  ; ; PRTBYT #0 PRTBYT0 BYT,X PRTBYT1 COUT  PRTBYT0 ; BYT 8D " BYT "  00 ; PRTBYT1 PRINTADR  ; ; PRTHBY #0 PRTHBY1 HBY,X PRTHBY2 COUT  PRTHBY1 ; HBY 8D " HBY "  00 ; PRTHBY2 PRIOPVAL PC STOPVAL+1 PC+1 GETVAR1 ; ;       ; ; ; ; ; ; ; ; ; HANDLE ADR PSEUDO OPCODE ; ; PRTADR #0 PRTADR0 ADR,X PRTADR1 COUT  PRTADR0 ; ADR 8D " ADR "  00 ; PRTADR1 PRINTADR ETVAR1 : BYTCNT GETVAR2 BYTCNT+1 ; GETVAR2 : PC GETVAR3 PC+1 ; GETVAR3 : CHKTBL GETVAR4 ; PRTDFS BYTCNT+1 GETVAR5 PRBYTE ; GETVAR5 BYTCNT PRBYTE TSTLBL #0 BYTCNT BYTCNT+1 ; ; ; GETVAR4 : STBL PRTA4 NOTAPL TSTLBL  ; ; ; NOTAPL #""" COUT  ; FIXASC1 #""" COUT DOHEX4 ; ; ; ; ; ; ; ; GETVAR- HANDLE USER VARIABLE ; AREAS. ; GETVAR :      ; ; TSTLBL #0 BYTCNT BYTCNT+1 ; GPLASC: ; PRTASC #""" COUT ; #0 #0 PRTA4 #$20 NOTAPL (PC),Y NOTAPL #" " NOTAPL COUT #""" PRTA7 COUT ; PRTA7 : PC PRTA5 PC+1 ; PRTA5 STOPVAL PC STOPVAL+1 PC+1 FIXASC1 CHKT2 ; DOHEX1 PRBYTE #$20 DOHEX PC DOHEX3 PC+1 ; DOHEX3 STOPVAL PC STOPVAL+1 PC+1 DOHEX4 TSTLBL DOHEX DOHEX0 ; DOHEX2 ; DOHEX4 POP RTN ADDRESS  ; ; ASCDONE :       ; ; ; DOAXASC0 CHKTBL PRTA2 NOTASC TSTLBL  ; ; NOTASC #"'" COUT  ; FIXASC0 #"'" COUT DOHEX4 ; ; ; HANDLE UNPRINTABLE CHARS ; DOHEX PRTHX #0 #0 DOHEX0 (PC),Y #' ' DOHEX1 #$80 DOHEX2 #" " DOHEX ; NORMASC : PRTASC #"'" COUT ; #0 #0 PRTA2 #$20 NOTASC (PC),Y NOTASC #' ' NOTASC #$80 COUT #"'" PRTA6 COUT ; PRTA6 : PC PRTA3 PC+1 ; PRTA3 STOPVAL PC STOPVAL+1 PC+1 FINTS ASCII STRINGS ; PRTASCII:      ; TSTLBL ; PRTA0 : #0 (PC),Y PRTA1 #" " DOAPL DOHEX PRTA0 ; DOAPL : DOAPLASC PRTA0 ; PRTA1 #' ' DOASC DOHEX PRTA0 ; DOASC : NORMASC PRTA0 ;XXIT TSTLBL PRTHX2 PRTHX0 ; PRTHXXIT:       ; ; ; ; PRTASC- PRINTS "ASC" ; PRTASC : #0 PRTASC0 ASC,X ASCXIT COUT  PRTASC0 ; ASC 8D " ASC "  00 ; ASCXIT ; ; ; ; ; !; PRTASCII- PRI; ; ; ; ; PRTHEX- PRINTS HEX STRINGS ; PRTHEX :      ; TSTLBL ; PRTHX2 : PRTHX #0 #0 ; PRTHX0 #$11 PRTHX2 (PC),Y PRBYTE PC PRTHX1 PC+1 ; PRTHX1 STOPVAL PC STOPVAL+1 PC+1 PRTH$ ; DISASM.2 ; ; SEVERAL UTILITY ROUTINES TO ; SUPPORT PASSES ONE AND TWO. ; ; ; ; ; ; PRTHEX- PRINTS "HEX" ; PRTHX : #CR COUT ; #0 PRTHXLP HEX,X PRTHXIT COUT  PRTHXLP ; HEX " HEX "  00 ; PRTHXIT ;                     PSEUD1 COUT #' ' PSEUD2 ; ; COMMENT HERE ; DIDCMNT PSEUD2 #";" COUT #" " COUT #1 DIDCMNT BLKDEL PSEUD0 ; PSEUD2 : INCP PSEUD0 ; PSEUD1 #$8D COUT INCP  ; ; ; !; BLKDEL- DELETES LEADING BL ; ASL4 ASL2 ASL2 ASL1 ASL1 ADDRESS ADDRESS+1  ; ; ; !; PSEUDXIT- PRINTS OPERAND FIELD ; PSEUDXIT: BLKDEL #'-' PSEUD5 #"!" COUT #"-" COUT INCP ; PSEUD5 : #0 DIDCMNT ; PSEUD0 (PNTR),Y ADDRESS+1 INCZ GETDEC ; ; ADRXIT :  ; ; ; ; ; ; ; "; MUL10- MULTIPLIES ADDRESS BY 10 ; MUL10 :  #0 ASL1 ADDRESS+1  ADDRESS  ASL2   ADDRESS ADDRESS  ADDRESS+1 ADDRESS+1   ; ; ; ; ASL4 GETHEX ; TSTDEC #'0' NOTDEC #'9'+1 NOTDEC ZERO  ; NOTDEC ALLONES  ; ALLONES $FF ZERO $0 ; ; ; GETDEC : (ZPAG),Y TSTDEC ADRXIT #$F MUL10  ADDRESS ADDRESS #0 ADDRESS+1 TR+1 ZPAG+1 ; ADRLOOP (ZPAG),Y #'$' GETHEX #$30 #10 GETDEC #$FF ADDRESS ADDRESS+1 ADRXIT ; GETHEX : INCZ (ZPAG),Y TSTDEC GOODHEX #'A' ADRXIT #'F'+1 ADRXIT #6 ; GOODHEX : #$F    ZPADR PRINT "EQU "  00 PSEUDXIT ; ZPADR PRINT "EPZ "  00 PSEUDXIT ; ; ; ; GETADR- CHECKS TO SEE IF DATA ; IN THE ADDRESS FIELD IS A ; ZERO PAGE VALUE OR NOT ; GETADR : ; #0 ADDRESS ADDRESS+1 PNTR ZPAG PN#'#' BYT #'/' ADR ; ; HBY HERE ; PRINT "HBY " ;  00 INCP PSEUDXIT ; ADR PRINT "ADR "  00 PSEUDXIT ; BYT PRINT "BYT "  00 INCP PSEUDXIT ; EQU : INCP BLKDEL GETADR ADDRESS+1 TE COUT ; ASC2 #0 (PNTR),Y DELIMIT ; ASC3 INCP (PNTR),Y DELIMIT ASC4 QUOTE ASC5 COUT ASC5 COUT ASC3 ; ASC4 QUOTE COUT INCP PSEUDXIT ; ; ; ; ".DA" HERE ; DATA : INCP2 BLKDEL  INCP2 PSEUDXIT ; ; ; ".HS" HERE ; HEX PRINT "HEX "  00 INCP2 PSEUDXIT ; ; ; ".AS" HERE ; ASC PRINT "ASC "  00 INCP2 BLKDEL #'-' ASC1 #""" QUOTE COUT INCP ASC2 ; ASC1 #"'" QUOINCP (PNTR),Y #'Q' NOTEQU EQU ; NOTEQU : ; ; ".EN" HERE ; PRINT "END "  00 INCP PSEUDXIT ; ; ; ".OR" HERE ; ORG PRINT "ORG "  00 INCP2 PSEUDXIT ; ; ; ".TA" HERE ; OBJ PRINT "OBJ "  00CHECKS ALL SC PSEUDO ; OPS AND CONVERTS THEM ; PSEUDOP : ; INCPMOVE TO NEXT CHARACTER #0 (PNTR),Y #'O' ORG #'T' OBJ #'H' HEX #'A' ASC #'D' NOTDATA DATA ; NOTDATA : ; ; ; ; ; MUST ".EN" OR ".EQ" HERE ; ; "; PRINT- OUTPUTS STRING FOLLOWING ; THE JSR PRINT ; PRINT : ASAVE YSAVE ;  ZPAG  ZPAG+1 ; #0 PRTLOOP INCZ (ZPAG),Y PRTXIT COUT PRTLOOP ; PRTXIT INCZ ASAVE YSAVE (ZPAG) ; ; ; ; ; ; PSEUDOP- OINTER ; INCP2-INCREMENTS POINTER BY 2 ; INCP3-INCREMENTS POINTER BY 3 ; INCP3 INCP INCP2 INCP INCP PNTR INCP0 PNTR+1 ; INCP0 ; ; ; ; INCZ- INCREMENTS ZPAG BY 1 ; INCZ ZPAG INCZ0 ZPAG+1 ; INCZ0 ; ; $FDED DISKINIT $A851 ; ; ; ; ; ; SCTOLISA: SEMI-AUTOMATIC ; CONVERSION FROM SC ASM II ; TO LISA 1.5 OR 2.0. ;  $800 ; ; START ; ; ; ; COUT- OUTPUT A CHARACTER ; COUT #$80 PUTC   ; ; ; ; ; INCP- INCREMENTS P: PNTR $0 ZPAG PNTR+2 ASAVE ZPAG+2 YSAVE ASAVE+1 QUOTE YSAVE+1 DELIMIT QUOTE+1 ADDRESS DELIMIT+1 ENDPGM ADDRESS+2 DIDCMNT ENDPGM+2 ; ; PROMPT $33 INPUT $200 PAG3 $300 GETLN $FD6F PUTC            L % i 晥ś圐ԥśŜi 日ś圐J#6  ȱ 来 i 无LK `hh` @uL[ Hh`80`8`јȱ`i L;8 ` 1 L`  Ly  L̠ŠĠٍ̠ŠĠ٠Ӎ   L BL ٍӍ q LkɮLlɬLlLlɍLl Wsns L}lil Šms mLl TmLl nLl oLl EoLl ~qLl qLl [nLll ō`   ōL*L    L .L    L   L    s    . L #  L /  -   '    .   L L  L%      . L L  `  L. ` Ҡà͠ɠź o Ġ ɍʅ˅L M `  L . `3 Q = ٩3 ΠíčŠíčӍ  / ٠ L ҠL Ԡ L  . I ՠL ڠL  $I0 ; L  AAG=) Ll 0:, `, ` ) ee L `H HH hehe h` && ` . -    L H h`  ``hh  L+ l O-T7HAAKDL QL& Ġ L Ǡ L ʠ L ؠ L à  . -   L     L  L  . #    `hh8 ` ` h h BLOAD "' h h,A$` ` ` h`>fm`@>fm`$RA[LEo!3%7 hLn 5wILLEGAL OPERAND IN ADDRESS FIELD` oL o oL oȱ DmA)m n ɻ 5wEPZ > $FF` lLl nLlLkm mLlLkmLl0 : AG`8`&&&&`#imjm l`  n h BLOAD TEMP. @ L|n lrL` n]  h BSAVE TEMP.,A$ ` ` h,L$HH ` "w`LxLx`'`(` l l ul h1 l l o ul h2 Lm l l x x` h **END OF PASS ` _`@ `󅯩Ll8e 5wNO ENDL`ȱL)m;*ʠ L&eheh`I0  jeI0`HHH hhh`HHHLkhhh`PRL2 ;: PRL1 CODSAV,Y PRHX #' ' LlLmL5wLkLk x` t2jH7j hLih ɰ, fjhh` d' { 0`:0`` Gi [i i ii i i i iLQi ``HHH h fjL~j) B 2 4 " fjƩ/ fj b L|j Lj fjLj Lj fLj bhhh`H&H&( )? i(`@#i05i`޼άݍ``Li` Gi [i i iiLQi fj iLi` Gi [i i ii i i iLQi`Hȱh` Gi [i i ii i i i iLQi Gi JLQiHH8L!`00 CCNT (PNTR),Y DELM CCR1 (PNTR),LwjLuiLgkL,kLBjL kLrjLiLfjLKjLiLiL[iLiiH h ɓ)I(Lhɛ  iLh hH(h)h` IAIA `$TEMS VERSION 2.5G -- 48K L/`B@fm a g h BLOAD a h,A$ igLg h BAD FILENAME ` LHH ;b ghhL;b@> a g h BSAVE a h,A$ ig h,L$ g h ` ;b8 4b 4b L H hh kfɻ h e 4b`8 h kf h LEfpftf kf h Lhd ة``-`Vʩ/V X h LAZER SYSTEM'S INTERACTIVE SYMBOLIC ASSEMBLER (C) 1981 LAZER SYSROLASLADREQUORGOBJEPZSTRDCMASCICLENDLSTNLSHEXBYTHBYPAUDFSDCIPAGINVBLKDBYTTLSBCLET.IF.EL.FI= PHSDPH.DAGENNOGUSRENZL#fȱ0M*;Lf00 H :hLe h : h L#fh:Le kf kfLe h)H hemcmcEBLTBMIBCCBCSBPLBNEBEQBVSBVCBSBBNMBM1BNZBIZBIMBIPBICBNCBRABTRBFLBRKBKSCLVCLCCLDCLIDEXDEYINXINYNOPPHAPLAPHPPLPRTSRTIRSBRTNSECSEISEDTAXTAYTSXTXATXSTYAADDCPRDCRINRSUBLDDPOPPPDSTDSTPLDRSTOSETADCANDORABITCMPCPXCPYDECEORINCJMPJSRLDALDXLDYSTASTXSTYXORLSRRORb a, a  b`iiL@cL@c a,ɠ,ɃL/` Rf ue zc`` a b`H b ah` "bh a, a b` b zc a b ;b b h`ei ;b b h`H bhH ch `b`cBGhh```````HH +beihh` ;b a b` b a b b h b a zc "b hL;b h h8` hBAD # ` a > b` LEAR? h a)YLxf` aH !` h OPEN a h h WRITEh,  h h INS +b ue zcLVa h CLOSE ` !` a h  `a)_ hLa   a ` +b#e 4bLa`HH O`4LxfL/`L,`L=`LLueL;bLRfLaXc>LQ _` b hpt^! h h a>fm̍م3vua)_ݠ`4)_ݱ`* h WHAT? L=`BLLSAIDLANMWF ROEAP`` `L=`les` wg`ggbcbk`ca``aaa,L gL h C                       U ɻ Lީ: ɻ Lީ: ɮ L+ ɍ 詍 h`HHH$) %&$) hhh` hhhhhh` `LLDL[" SYM TABLE FULLLȥȩ`H |hi쥵퐯8Ƶȱ)iȥȥL(ݠ쥕i L`HH |ݥ ȥȩhh` `H LISA 2.5 Ģ L۩ ` p`HH0;*  hh` 륒 ॑LUܥHH  hh`0 : AG`8`쥕^:&#L( DUPLICATE LABELL(i LܠŴ嵐暤梤`ꅝȱŝȱŝ`ꅝȱŝȱŝ" % L=`,0`ɠ,Ƀ,L,`櫥 ݩ`` \ -ܠ} Ģ 섘 pi9Ģ3 -ܹ ` $P L[L L[_ȱ"' 8۱, L[# $P LI/ $P LI $P ڥ LI  L[  ) L[ -ܩ p ***** END OF ASSEMBLY ` 륙ƚƙ`Lބhh Lp6  LET W/O LABELL[Р ڠȥ L[C.L ۥL[ UNMATCHED IF/EL/FIL[ ٥ݩL[Х NESTED IF'S NOT ALLOWEDL L[ $p L ۥ `8eH hȱ+ȱꅝȱŝ L L[8ȱ * &ɻ"A) ȱA) L2 L[, FLOATING POINT NOT YET IMPLIMENTEDL[  L[ L[2مvu  ȱꅝȱŝ Lة L[HHH h $pLҥ, ڄƻƺL eeee L[ $pLҥ L[ L[ȥ쥚  Lȩ 8 L[4ȩ 8ۤIƜƛI L[? 8 L[?@ 8 L[$pLҥ ڥ ڱ, L[ $pLҥ ڱ, L[:ȱ"' 8۱, $pLҥ ڱ, L[  L[ L[ PAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLұ,-Lq1QQ $pLaҥLҥ L[h L $pLҥ ڥ L[ LAH $phLҥ'h8鿪 LLm- ,MMNn.h8鿪 ڥ L[e%$EEFf&" $pLҥ ڥ ڱ, L[" * h8鿪 ȱ#/, $pLҥ L[ $pLҥ L[' ȱ L["ȱ L[Щȱ ܰ L[A)Lgi) IIl h $pLҥ ڥ L[h8鿪 La!AAh8鿪 p" UNDEFINED SYMBOLL[Х ڥ L[y9YYh" $pLaҥLҥ L[8H ڥ9$phLh ڥ ڥ L[}=]]^~>$phLah ڥ L[u5UUVv6h8Ԫ L[Jj$pLҥ ڥ L[Р`pHȱ 8҅8҅l7ӪIHh>Lҩ $pA UNDEFINED SYMBOL-MUST BE ZPAGE.L[Є $PȥK ڥ7 ADDRESSING MODE REQUIRES ZPAGE VARIABLE.L[Х L[Ф8鿪0 $ UNDEFINED SYMBOLL[8噅嚅ƚƙ&( BRANCH OUT OF RANGEL[Х0 L[а0pP ɼ+8鲪Hȱ@ȱA8)h L[ɾ.ɽȱ@ HLѩ@HLȱ@0HLȩPHLȱA8)  LLLQLLLLݩ멀vم􅢅(򅡠 Lp ۠8e륙ȱ0;*^ ȱ) ؐLɲ LLɖL8閪 L[ XʈHh(`@ 8x8逪n $p          g(X1(t@<Y+Dg'X>lg*XN@<YdD|k(tWRITE wM t|XtNOMON O,I,C w t٠=T>** MICROPRODUCTS TO LISA CONVERSION**PZ $wEQU $w$@R < >= > <= ORANDNOTSHLSHRINCDECCPYICHOCHINMONMIHXOHXIFPOFi0i6  ` ȱ & -       i0 F `0`AND ARRAY BEGIN CALL CASE CONST DIV DO DOWNTO ELSE END FILE FOR FUNC IF INTEGER MEM &402ee&#0!e0 5 L,  OL  L ` >L  ? L t L  ` Lu{vC ʊ ei(i ei(i 8 ` &&  F ȥ8 ȥ L ` p) L ɔə݅ )`rb 5 0/G+:/A7&& ,  OLbL  5 - = 0>::/&8ʐ eȱeP + ` )?% L` D L ȱ  I E` + & + ee + إȥ L ` IF +  &&&8ȑ` Piȑ`ʰ ) L &ȥ`FJ( J' ȥ H %%`)ȑ` F2L F(L {  {  { 0  { 0 L i` ? iȑ` ?  &8ȥ` <ȑ`=  `  `ȱL 8ȥ0` {  X Xȑ` { ]_0 \]֥ ^_ʥ T8IIi𵐳`8e8 L ȥ`JJJJ  ) +ȱ &8`&8`` ? L ȱL ? &8L ? L ȥ` ? P P P P /wm W W W W P P P P P P P P P  P P P L ) ȱ 86iiȥȥȥȥ` Lee8ȱȱȱ`&8#LL,L1LCLL,0 ؠʆ ȄL $ 00 )ȱȱP 8e J)ȹ LwL iP P #  7 b (  !! ! ! ! ! !!!!!!!!!          AN ADDRESS OF A ;: CHARACTER ARRAY ;: FOLLOWS THE JSR. ;: PCIA SAVR STKA INCA SSTK DECA LAIA OTAI RSTR ;: ;:****************** ;: ;: ;: DECA DECREMENTS ;: ADDR BY 1. ;: DECA ADDR DCA1 ADDR+$01 DCA1 AD1 (ADDR),Y INA1 PUTC INCA OTA1 ;: ;: ;: ;:****************** ;: ;: INCA INCREMENTS ;: ADDR BY 1 ;: INCA ADDR INA1 ADDR+$01 INA1 ;: ;: ;:****************** ;: ;: ;: ;: PCIA IS SIMILAR ;: TO PCIM EXCEPT ;:RACTERS IMMED- ;: IATELY FOLLOWING ;: THE JSR. THE ;: CHARS ARE ENDED ;: WITH A HEX '0' ;: PCIM SAVR STKA OTAI SSTK RSTR ;: ;:****************** ;: ;: ;: OTAI OUTPUTS ;: CHARS UNTIL A ;: HEX "0" IS FOUND ;: OTAI 00 OTADDR. ;: ;: STKA PAG1+$3,X ADDR PAG1+$4,X ADDR+$01 INCA ;: ;: ;: ;: SSTK DOES THE ;: INVERSE OF STKA ;: SSTK ADDR PAG1+$3,X ADDR+$01 PAG1+$4,X  ;: ;:****************** ;: ;: ;: PCIM PRINTS THE ;: CHASAVR ASAV YSAV XSAV  ;: ;: ;: RSTR RESTORES ;: REGISTARS SAVED ;: BY SAVR. ;: RSTR ASAV YSAV XSAV  ;: ;:****************** ;: ;: STKA TRANSFERS ;: THE RETURN ADDR- ;: ESS OF THE CALL- ;: ING ROUTINE TO ;: A YSAVE #17 CNVRT1 CTBL,Y CNVRT2  CNVRT1 CNVRTX ; CNVRT2 CTBL2,Y CNVRTX YSAVE  ; CTBL "!#'()^<>/-13789N,." CTBL2 "|`{}~[]\_|`{}~[]" ; ; ;: ;: ;: ;: ;: SAVR SAVES THE ;: REGISTARS IN ;: PG1 ;: TSTXIT #$20 TSTXIT ; ; ; ; SETCRS : CH (BASL),Y CUCURS #$E0 SETC1 #$20 ; SETC1 : LCPLSINV #$7F  #$3F  ; MASK,X (BASL),Y  ; LCPLSINV MASK 0000  MASK 0040  ; ; ; CONVRT :L),Y GET0 ; ; GET6 : #ESC GET4 KEYIN CONVRT GET5 ; ; GET4 : TSTSHF ; GET5 :  CUCURS (BASL),Y  #$7F     GETCY  ; ; TSTSHF : SHIFTL TSTXIT #'A'  #'A'  #26+$80  $FC58 CRLF $FC62 DOLF $FC66 CELN $FC9C COUT $FDED KEYIN $FD18 ;: ;: RDKY : GETCY   ; GET0 : SHIFTL SETCRS GET3 : KEYIN #CNTRLS GET6 SHIFTL #$1 #$1 SHIFTL CUCURS (BASUT $9500 PAG2 $9500 PG21 $9501 ;  INPUT $9800 PAG2 $9800 PG21 $9801 ;  ; KEYBRD $C000 KYSTRB $C010 ;: ;: ;: ;: MSHFT $F87B PRBL2 $F94A BELL $FBDD DOBS $FC10 UP.. $FC1A HOME $0024 CH $24 CV.. $0025 BASL $0028 ADDR $E0 BDDR ADDR+$2 CDDR BDDR+$2 ; BCDL $80 GETCY BCDL+$5 YSAVE GETCY+$1 CUCURS YSAVE+$1 SHIFTL CUCURS+$1 ; ;: PAG1 $0100 ; ; HAS64K ; INP $A CNTRLK $B CNTRLL $C CNTRLO $F ;: ;: ; ; PAGE 1 VARS ; ASAV $0100 XSAV $0101 YSAV $0102 LEAD0 $103 DIGIT $104 ASV2 $0105 XSV2 $0106 YSV2 $0107 ;: ;: ;: ;: ;: ZPAGE VARS ;: ;: CH.. 00 ;: START : RDLN PCIM MOVR MOVL TSTD CVDH INIT PSPC PUTC PINT PCIA OTAI STKA SSTK ; ;: ; ; CONSTANTS ; CNTRLS $93 ESC $9B ZPLUS1 $DB ZERO $B0 CNTRLU $15 CNTRLX $18 CNTRLJ LLED A LAZER MICROSYSTEMS' ; LOWER CASE +PLUS, AND/OR ; KEYBOARD +PLUS. ; ; ; ; FALSE 0 TRUE 1 ; HAS64K TRUE ; ; #; LOWER CASE +PLUS IN INVERSE ONLY ; MODE? ; LCPLSINV FALSE ; ; ; HAS64K  $E880   $6880  ;  $8   "LISA P2.L" ; ; !; P2.L IS THE INPUT/OUTPUT STUFF ; FOR LISA 2.5. ; ; IT IS A SOMEWHAT CLEANED-UP "; VERSION OF THE LZR IOS ROUTINES ; FOUND ON THE LISA 1.5 DISK. ; ; MANY OF THE ROUTINES IN THIS ; SECTION ASSUME THAT YOU HAVE "; INSTA"" " " " " """""""""